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VOORWOORD 


Gaarne wil ik iedereen bedanken die mee heeft geholpen 
bij het tot stand komen van dit boek. 

Hierbij denk ik vooral aan Cindy, mijn vrienden, kennissen 
en niet te vergeten de beide auteurs van Kampen en 
de Kuiper. 

Verder wil ik de volgende detaillisten bedanken voor hun 
medewerking t.w.: 

Ir. bureau Schroder Eindhoven 
Vlasveld Electronica Leiden 
Capi Lux Amsterdam. 

Ik hoop dat dit boek met zijn toekomstige updates als een 
onmisbare schakel mag fungeren tussen de APPLE en haar 
GEBRUJ-K-ERS. ^ 






Ten Geleide : 

************* 

Voor U ligt het eerste Supplement van het APPLE HANDBOEK. 
Behalve een zeer uitgebreide behandeling van het Disk 
Operating System vinden we nog de volgende onderwerpen : 

1. Een globale kennismaking met twee APPLE compatibele 
Micro-Computer Systemen, n.l. de PEARCOM en de BASIS 108. 
Deze Systemen komen respectievelijk uit Engeland en 
Duitsland. 

2. Een korte verkenning van de moge1ijkheden voor APPLE 
in het komende jaar in het licht van de concurrentie van 
de onder 1. genoemde Systemen. 

3. Een beschouwing over de Softcard van Microsoft. Dit is 
een Interface met een Z80 Microprocessor die de APPLE in 
staat stelt onder CP/M te kunnen draaien. Met de 
introductie kwam een er een dimensie voor de APPLE II 
bij. De mogel i jkheden hiervan zijn zo groot, dat hierover 
een afzonderlijk Supplement gepubliceerd zal worden. 

De auteurs hebben veel reacties op het APPLE HANDBOEK 
gehad. De overwegend opbouwende kritiek en de talrijke 
suggesties hebben ons gesteund in onze overtuiging dat 
dit HANDBOEK een wezenlijke functie vervult. Wij willen 
vanaf deze plaats een ieder die reageerde heel hartelijk 
danken en spreken de hoop uit dat dit zich in de toekomst 
zal voortzetten. 


Gorinchem, April 1982 

Hans van Kampen 
Rien de Kuiper 






HANS VAN KAMPEN 
RIEN DE KUIPER 





oms1agtekening : Wichert van Engelen 
drukkerij : Total Photo Amsterdam 


ISBN 90-70556-01-4 

Copyright©1981 le.druk 

Uitgeverij Wolfkamp 
Amsterdam 

Niets uit deze uitgave mag worden verveelvoudigd en/of 
openbaargemaakt door middel van druk, fotokopie, microfilm 
of op welke andere wijze, zonder voorafgaande schrifte- 
lijke toestemming van de uitgever. 





INLEIDING 


Zonder twijfel zal het APPLE II Personal Computer Systeem 
uw gedachten omtrent computers veranderen. 

De APPLE II is immers opgewassen tegen de meest 
uiteen 1opende taken. Het is een weldoordachte computer, 
die robuust is en die moge 1 ijkheden in zich verenigt, die 
elke fantasie tarten. 

De APPLE II is op dit moment het meest consistente 
microcomputer concept met een bijna onvoorste1 bare 
uitbreidingsmogelijkheid. Het marktaandee1, dat APPLE 
COMPUTERS INC. heeft opgebouwd, duidt erop, dat de grote 
betrouwbaarheid van haar systemen en het geslaagde 
ontwerp ervan weerklank heeft gevonden over de gehele 
wereld. 

Dit nieuwe APPLE II HANDBOEK is principieel bestemd voor 
elke APPLE bfezitter, maar is ook geschikt voor degeen, 
die zich nog moet orienteren op het gebied van 
micro-automatisering. Dit APPLE II HANDBOEK behandelt het 
gebruik van deze microcomputer en voert de 
lezer/gebruiker systematised door het systeem, dat 
natuurlijk meer omvat dan de fysieke microprocessor. 

Toch is dit HANDBOEK geen lesboek. De behandelde 
onderwerpen worden op een luchtige wijze gebracht en 
nodigen uit tot zelfwerkzaamheid. Wei wordt 
verondersteld, dat de lezer de onderwerpen zal begrijpen, 
alvorens over te gaan op aansluitende maar meer 
gedetai1leerde besprekingen. 

Het gedeelte, dat de systeemhardware omvat, is eenvoudig 
van opzet, zodat ook niet-electronici hierin hun weg 
kunnen vinden. De bespreking van het assembleren, alsmede 
het DOS is praktisch van opzet, zonder dat te ingewikkeld 
wordt gedaan. 

Dit APPLE II HANDBOEK is een onmisbare schakel tussen 
gebruiker en microcomputersysteem. Het losbladige boek 
biedt de mogelijkheid van tussentijdse aanpassing en 
uitbreiding. 

Zowel de beginner als de gevorderde gebruiker zal dit 
boek weten te waarderen. 
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DE AUTEURS 


Rien de Kuiper en Hans van Kampen zijn beide 
APPLE-enthousiasten, die een meerjaren ervaring hebben 
met microcomputers. Rien werd op 10 mei 1957 geboren en 
kwam na de Middelbare School in de computerwereId 
terecht. 0m het grote 'mainframe '-gebeuren beter te 
doorgronden, kocht hij een APPLE computer. Hij is 
specialist op het gebied van tekstverwerking en 
vormgeving. 

Hans van Kampen is geen onbekende in de 
microcomputerwe re Id. In 1978 stelde hij het eerste Apple 
Handboek samen, dat meer was toegesneden op de 
Amerikaanse standaard-APPLE. Afgezien van dit boek 
schreef en vertaalde hij talrijke boeken over luchtvaart 
en controversiele onderwerpen. Ook publiceerde hij 
artikelen over automat i sering in diverse periodieken 
(onder pseudoniem). 

Beide auteurs houden zich graag aanbevolen voor opbouwende 
kritiek en suggesties. Tevens zullen zij geinteresseerden 
verder willen wijzen in het gebeuren rond de 
APPLE-computer. Wie met de auteurs in kontakt wil treden, 
richt zich tot Postbus 2030, 

4200 BA Gorinchem/Neder1 and. 
of tot de uitgever: postbus 70254 
1007 KG Amsterdam/Nederland 

De Auteurs worden gaarne op de hoogte gehouden van 
nieuwe APPLE programmatuur, welke in Nederland en 
Belgie verschijnt. 
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HOOFDSTUK 1 Wegwijzer 


Ten gerieve van de lezer werd in dit APPLE H HANDBOEK 
een uitgebreide index opgenomen. Hierdoor is het mogelijk 
sne 1 een gezocht trefwoord of commando-statement terug te 
v i nden. 

Bovendien verschaft de nu volgende inhoudsopgave een 
duidelijk beeld van de opbouw van het boek. 

Door index, inhoudsopgave en commando-wijzer voorin te 
plaatsen, kan de gebruiker op een efficiente wijze 
toegang krijgen tot de leesstof. 

De bladzijden zijn eenduidig gemerkt: 

Eerst volgt het hoofdstuknummer, daarna de bladzijde 
binnen het hoofdstuk. 

Dus: Systeem-commando 's 5.1 betekent, dat in Hoofdstuk 
5 Blad 1 het 

onderwerp "systeem commando's" een aanvang neemt. 

De commando-wijzer is een index betreffende de 

App1esoft-instrukties . De statements zijn gegroepeerd 

naar hun aard. 

*** 






1. Inhoudsopgave 


HOOFDSTUK 2 Hoe te beginnen 


1. Het systeem opstarten 2.1 

2. lets over commando's 2.4 

3. Programma's corrigeren 2.8 

4. Wat is Applesoft ? 2.16 

HOOFDSTUK 3 Progammeren in Basic 


1. Het geta1lensysteem 3.1 

2. Het print-formaat 3.4 

3. Variabelen benoemen 3.6 

4. Logische & rekenkundige regels 3.11 

5. Nog iets over commando's 3.13 

HOOFDSTUK 4 Enkele overzichten 


1. Commando samenvatting 4.1 

2. lets over Integer Basic 4.3 

3. ASCII-codes 4.7 

4. Floating point package 4.8 

HOOFDSTUK 5 Beschikbare commando's 


1. Systeem commando's 5.1 

2. Editing commando's 5.8 

3. Over array's & strings 5.13 

4. Input & output commando's 5.19 

5. Flow control commando's 5.27 

6. Spel-, of game control 5.28 

HOOFDSTUK 6 Ingebouwde functies 


1. Wiskundige functies 6.1 

2. PEEK, POKES & CALL'S 6.6 

3. Automatische foutmeldingen 6.8 

4. Gereserveerde woorden 6.11 

5. Applesoft geheugenmap 6.13 

HOOFDSTUK 7 Grafische voorste11ingen 


1. Grafieken met grof raster 7.1 

2. Grafieken met fijn raster 7.6 

3. Het maken van figuren 7.10 
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HOOFDSTUK 8 Monitor 


1. Enkele observaties 8.1 

2. De monitor in en uit 8.3 

3. Geheugen commando's 8.7 

4. Display commando's 8.8 

5. Mini-assembler 8.12 

6. Pseudo machine interpreter 8.37 

HOOFDSTUK 9 Disk drives 


1. Het gebruik van disk drives 9.1 

2. Tracks & sectoren 9.2 

3. Het hanteren van de diskette 9.4 

4. Welk disksysteem 9.5 

5. Van pr# tot catalog 9.6 

6. Directe DOS commando's 9.8 

7. DOS programma commando's 9.11 

8. DOS lees / schrijf operaties 9.23 

HOOFDSTUK 10 Interfacing & I/O 


1. Overzicht 10.1 

2. Video 10.2 

3. Voeding 10.4 

4. Cassette recorder 10.5 

5. Keyboard 10.7 

6. Game I/O 10.8 

7 . Ge1uid 10.9 

8. Slots 10.10 

9. Nadere beschouwing 10.13 

HOOFDSTUK 11 Hardware 


1. Synchronisatie & timing 11.1 

2. ROM & PROM beknopt 11.15 

3. RAM beknopt 11.15 

4. De Geheugenmap beknopt 11.15 

HOOFDSTUK 12 Trouble Shooting 


1. Enkele oorzaken 12.1 

2. Vervangen van IC's 12.3 

HOOFDSTUK 13 Nabeschouwing 


1. Hobby Computer Club 13.1 

2. Conflict Simulatie (Ducosim) 13.2 

3. Daar maken we een copietje van 13.4 

4. Ten Besluite 
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HOOFDSTUK 14 algemeen 


Evaluatie voorjaar 1982 

14.1 

Pearcom 

14.2 

Z-80A Softkaart 

14.4 

Basis 108 

14.6 

M-Basic 80 

14.7 
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3. Commando-wijzer 


3.1 Systeem 

LOAD 

SAVE 

NEW 

RUN 

END 

CONT 

TRACE 

NOTRACE 

PEEK 

POKE 

WAIT 

CALL 

HIMEM: 

LOMEM: 

USR 

3.2 Editing 

LIST 

DEL 

REM 

VTAB 

HTAB 

TAB 

POS 

SPC 

HOME 

CLEAR 

FRE(0 ) 

FLASH 

INVERSE 

NORMAL 

SPEED= 

3.3 Array's 

DIM 

LEN 

STR$ 

VAL 

CHR$ 

ASC 

LEFTS 

RIGHTS 

MID$ 

STORE 

RECALL 


commando's 

5.1 

5.1 

5.1 

5.2 

5.2 

5.3 

5.3 

5.3 

5.4 

5.4 

5.4 

5.5 

5.5 

5.6 

5.7 

commando 1 s 

5.8 

5.8 

5.9 

5.9 

5.9 

5.10 

5.10 

5.10 

5.11 

5.11 

5.11 

5.12 

5.12 

5.12 

5.12 

& Strings 

5.13 

5.13 

5.13 

5.15 

5.16 

5.16 

5.16 

5.17 

5.17 

5.17 

5.18 




3.4 Input/Output 


INPUT 5.19 

GET 5.22 

DATA 5.23 

READ 5.23 

RESTORE 5.24 

PRINT 5.24 

IN# 5.25 

PR# 5.25 

LET 5.25 

DEF 5.26 

FN 5.26 

3.5 Flow control 

GOTO 5.27 

IF..THEN 5.27 

FOR..NEXT 5.28 

GOSUB 5.29 

RETURN 5.29 

POP 5.30 

ON..GOSUB 5.30 

ON..GOTO 5.30 

ONERR..GOTO 5.30 

RESUME 5.31 

3.6 Game control 

PDL 5.32 


3.7 Wiskundige functies 


SIN 

COS 

TAN 

ATN 

INT 

RND 

SGN 

ABS 

SQR 

EXP 

LOG 

Afgeleiden 


6.1 

6.1 

6.1 

6.1 

6.2 

6.2 

6.2 

6.2 

6.3 

6.3 

6.3 

6.3 ev. 



3.8 Grafieken 


GR 

TEXT 

COLOR 

PLOT 

HLIN 

VLIN 

SCRN 

HGR 

HGR2 

HCOLOR 

HPLOT 

DRAW 

XDRAW 

ROT 

SCALE 

SHLOAD 

3.9 D.O.S. 

P R#( slot) 

CATALOG 

LOAD 

RUN 

IN IT 

SAVE 

LOCK 

UNLOCK 

RENAME 

DELETE 

VERIFY 

C H R $ (4 ) 

OPEN 

WRITE 

CLOSE 

READ 

APPEND 

POSITION 

BYTE 

EXEC 

BRUN (1 ) 

MAXFILES 

MOM 

NOMON 

TRACE 

BSAVE 

BLOAD 

BRUN (2) 

CHAIN 


7.3 

7.3 

7.4 

7.4 

7.5 
7.5 

7.5 

7.6 

7.6 

7.7 

7.7 
7.15 
7.15 

7.15 

7.16 

7.16 

commando ' s 

9.6 

9.6 

9.8 

9.8 

9.8 

9.9 

9.10 

9.10 

9.10 

9.10 

9.10 

9.11 

9.12 
9.12 

9.12 

9.13 

9.14 
9.14 

9.16 

9.18 

9.19 

9.20 

9.20 

9.20 

9.21 

9.21 

9.21 

9.22 

9.22 





TREFWOORDENREGISTER 


A 

ASCI I-codes 4-7, 8-5 
AUTO 4-4 

Aan- en uitzetten 2-6, 2-7 
Aanha1ingstekens 2-6 
Accessoires 5-31 , 7-1 
Accumulator 5-7, 8-10 
Adres 8-1 
Adressering 8-10 
A1fabet 8-11 

Alfanumeriek 3-6 
Ampersand-teken (&) 6-11 

Applesoft 2-4, 2-16, 6-12 
Arithmetische waarden 5-21 
Array 5-13 

Assembler 2-17, 8-12 ev. 
Assembly language 2-16 
Autostart ROM 2-2, 2-11, 8-1 
B 

BASIC 2-18 

Backup copie 9-8, 13-4 
Bedri.ifszekerheid 10-4 
Beeldblokjes 7-3 
Beschermen 5-6, 8-5 
Beschrijving 8-10 
Bit 8-4 

Boolese vergelijking 3-12 
Bootstrap 8-1 
Buffers 9-20 
Bus 11-1 ev. 

Byte 8-4 
C 

CALL-151 2-17, 8-1 ev. 

CLEAR 3-7 

CTRL-B 2-13, 4-3 

CTRL-C 2-13, 2-19, 5-22, 8-3 

CTRL-D 9-11 

CTRL-RESET 2-13 

CTRL-S 5-8 

CTRL-X 2-14 

CTRL-funkties 2-14 ev. 

CTRL-toets 2-8 ev. 

Caret (") 8-12 

Cassetteband 5-17, 8-13, 10-5 

Cassetterecorder 5-1, 7-14, 10-5 

Clobbering 12-2 

Commando's 5-1 ev., 6-12 

Communiceren 5-19 

Compatibel 9-5 

Compiler 2-1 7 

Concatenatie 5-15, 6-9 

Conflict Simulatie 13-2 

Contro1 , tekst 6-6 

Coordinaat 7-4 

Copie 13-4 

Cursor 2-2, 2-9, 5-9 



D 

DEL 2-14 
DMA-controller 11-2 
DOS 6-12, 9-1 ev. 

DSP 4-4 

Darlington circuit 10-9 
Data-lijst 5-13, 5-23 
Debug mode 5-3 
Deferred mode 3-13 
Density 9-16 
Dimensioneren 5-13 
Disk Interface Kaart 9-6 
Disk stations 9-1 ev., 12-2 
Diskettes 9-4 
Display controls 6-6 
Ducosim 13-2 
Dummy 5-26 
E 

E-teken 3-2 

END 2-6, 4-5 

ESC funkties 2-14 ev. 

ESC-toets 2-2, 2-8 
Edit mode 2-8 
Editing 2-8, 2-10, 2-12 
Elementen 5-23 
Encoder board 2-13 
Energieverbruik 2-7 
Executie 3-13, 5-6, 9-18 
Ezelsbrug 3-11 
F 

Figuren 7-10 
File 9-11 ev. 

Flag 5-30, 9-13 
Floating point 3-1 
Floating point routines 4-8 
Floppy disk 9-4 
Formatteren 9-9 
Fout 6-8 

Foutcode 5-31, 6-7 

FoutmeIding(en ) 4-6, 5-30, 6-8 

Frequentiemodu1 atie 9-8 

Funktie 5-26, 6-1 

G 

Game paddles 8-13 
Geheugenblok 8-5 
Geheugenmap 6-13 ev., 8-4, 11-15 
Geheugenplaats 5-14 
Geheugenruimte 3-9 
Geheugenwoord 8-1 

Gereserveerde woorden 2-11, 3,6, 4-2, 6-11 
Getallen 3-1 
Grafics 7-1 ev. 

H 

HGR2 programma 7-7 

HIMEM: 2-14,7-14 

Hangt, Systeem 2-19, 9-9, 12-2 

Hardware 10-1 

Hexadecimale waarde 7-12 

Hexadecimale notatie 8-4 

Hobby Computer Club 13-1 



Handboeken 12-2 
I 

IC's 12-3 

INPUT 4-5, 5-19 

Immediate mode 3-13 

Indirecte commando's 2-5 

Initia 1iseren 9-8 

Integer 3-1 , 3-8 

Integer BASIC 2-17, 4-3, 6-12 

Integer variabelen 3-8 

Interpreter 2-17, 4-3 

J 

K 

Kaart, PAL 2-1, 7-1, 10-13 
Kaart, RGB 2-1, 7-1, 10-2 
Klachten 12-1 
Koelen 10-13 
Komma 2-4, 3-1 
Konditionele pauze 5-4 
Kopieren 13-4 
L 

LEN 3-9 
LIST 2-6 
LSB 8-4 
Listing 2-7 
Literal 3-8, 5-21 
Loop 5-13, 5-28 
Lussen 5-28 
M 

MAN 4-4 
MOD 4-4, 6-5 
MSB 8-4 

Macht-teken (*) 3-1 

Mantisse 3-2 
Master 9-6 

Mathematische functies 6-1 ev. 

Megabyte 9-5 

Memtop 5-4 

Mini-assembler 8-12 

Mini-assembler instrukties 8-14 ev. 

Mnemonic s 2-16 

Modulator 10-2 

Moederbord 10-1 

Monitor 2-13, 8-1 ev. 

N 

NEW 2-7 

Nulstring 3-9, 5-23 
0 

Opbergdozen 9-4 
Opcode 8-10 ev. 

Operator 3-11 
Opstarten 2-1 
P 

POP 5-29 
PRINT 2-4, 3-4 
PROM 2-16 

Perifera 1 5-25, 10-4 

Pijltoetsen (—*/*—) 2-9 
Plotten 7-6 
Plotvector 7-10 



Plotvenster 7-3 
Pointer 5-23 

Prompt 2-2, 2-17 

Q 

QWERTY 10-7 
R 

RAM-blok 11-2 
REPT toets 2-9, 10-7 
RESET 2-13, 5-25 
ROM, Autostart 2-2 
ROM-blok 11-2 
ROM-chip 7-1 

RUN 2-6, 3-4 
Radialen 6-1 

Randaarde 2-1 
Random access 9-14 ev. 
Random petal 6-2 
Record 9-14 

Register 8-10, 8-13 
Reistijden 3-5 
S 

SVX-4 9-16 

Schakelen 2-7 
Schermbeschrijving 8-10 
Sectoren 9-2 
Sequentieel 9-12 
Shape-programma 7-17 
Shapetable 7-10 ev. 

Slot 5-25, 10-1 ev., 10-10 
Software 2-16, 13-4 
Spatiebalk 2-9 
Spaties 3-9 
Stack 5-29 
Statement 2-16, 5-19 
Storing 12-1, 12-3 
String concatenatie 5-15 
String variabelen 3-8 
Strings 3-9, 5-11 
Structuur 2-19 
Subroutines 8-1 

Subscript '5-13 
Syntax 2-10, 2-18 
Systeem commando's 5-1 ev. 

T 

Tab-fields 2-5, 3-5 
Tekstcontrole 6-6 

Tekstcorrectie 2-8, 2-10 
Tekstvenster 3-4, 5-10, 7-6, 

Temperatuur 10-4 

Text-display 8-8 ev. 

Timing 11-1 ev. 

Toets 12-3 
Tracks 9-2 
U 
V 

Variabelen 3-6 
Verschillen 4-4 
Video output 5-12, 10-2 

Volumeknop 10-5 
Volumenummer 9-17 
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Voorrangsregels 3-11 
W 

Wedstrijd-score 5-19 
Woorden, gereserv. 4-2, 6-11 
X 
Y 
Z 

Zoekprogramma 5-3 



HOOl-DSTUK 2 HOE TE BEGINNEN 


1. Het systeem opstarten 


Het APPLE-II Personal Computersysteem (PC) 


Bekijk het. 

Oppervlakkig ziet het eruit 
als een moderne typemachine. 
Een blik onder de bovenklep is 
echter voldoende , om te 
ervaren , dat hier een 
krachtige en geavanceerde 
computer schuilgaat. 

Til voorzichtig de achterzijde 
van de bovenklep op. Met een 
zachte klik komt hij los. 
Schuif de klep wat naar achter 
en neem hem weg. 

Aan de binnenkant van het systeem bevindt zich een 
ordelijk geheel van zeer moderne e1ektron i sche 
komponenten. 

Daarin mag niets rammelen , of loszitten. 

Breng de bovenklep weer op zijn plaats en klik hem vast. 



Controleer nu de achterzijde van de APPLE-II . 

De aan/uit schakelaar moet in de "off"-positie staan , 
terwijl de netspanningsschakelaar het juiste voltage 
(bijv. "220") moet aangeven. Evenals andere e1ektronische 
apparaten sluit je de APPLE-II met een van randaarde 
voorziene stekker op het lichtnet aan. De randaarde is 
een vei1igheidsvoorziening . 


Verbindt de APPLE-II vervolgens met het te1evisietoeste 1 
of data-monitor. 

Het is eventueel mogelijk kleuren toe te passen , maar 
dan moet je een speciale "PAL interface kaart", "RGB 
kaart", of NTSC-monitor gebruiken. 


Door de aan/uit schakelaar aan de achterzijde van de 
APPLE-II te gebruiken , wordt het systeem ingeschakeld. 
Het verk1ikker1 ampje onder de toets , genaamd "power" 
gaat nu branden. 

Die toets heeft verder geen schakelfunktie. 


Het volgende moet nu gebeuren : de luidspreker van de 
APPLE-II zal een welluidende "biep" laten horen en links 
onder in het te1evisie-bee Id verschijnt hierna een 
merkwaardig gevormd haakje (J) , waarnaast een aan en uit 
knipperend vierkantje zichtbaar is. 
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Bij het APPLE—II type zonder zgn. autostart ROM dient 
eerst de CTRL-toets tezamen met de B-toets te worden 
ingedrukt , gevolgd door de RETURN-toets. 


Dit blinkende vierkantje noemt men de "loper" , of in 
computer-taa1 : de cursor. Wanneer je een paar keer op de 
brede spatiebalk , onder in het toetsenbord , drukt , zie 
je de cursor opschuiven - hij "loopt" over het beeld. 


Afgezien van het haakje en de aanvallig knipperende 
cursor kunnen er bij het inschakelen van de APPLE-II 
zonder autostart ROM allerlei vreemde tekens op de 
beeldbuis zichtbaar zijn. Dit rommeltje kunnen we op een 
eenvoudige wijze kwijtraken! 

Je drukt even op de toets , genaamd ESC (van 
ESCape=ontsnappen aan) , en daarna op de SHIFT-toets , 
die tegelijk met de P-toets wordt gebruikt. Nadat SHIFT-P 
werd ingedrukt drukken we op de RETURN-toets - en weg 
zijn a 11 e vreemde inschakeltekens . Flaakje en cursor staan 
keurig boven in het beeld. 



Het haakje is een van de zogenaamde "prompt" tekens , die 
de APPLE-II kan tonen. De prompt verraadt de taal , 
waarin de computer aangesproken wenst te worden. Hij is 
dus min of meer onze souffleur , die je influistert in 
we Ike taal je moet spreken. 

Als de prompt en de cursor (soms ook de cursor alleen) in 
het beeld zichtbaar is , bedoelt de APPLE-II dat het jouw 
beurt is en dat hij via het toetsenbord graag met je in 
kontakt treedt. M. a. w. het is nu jouw beurt! Ga je 
gang. 


Valt de prompt en de cursor gedeeltelijk , of zelfs 
geheel buiten beeld , dan zal het beeldvenster van de 
televisie bijgesteld moeten worden. 


2 - 2 






De prompt, die nu zichtbaar is (3), geeft aan dat door de 
computer APPLESOFT Floating Point Basic wordt gesproken. 
En gemakshalve houden we ons daar maar aan... 


2 


3 



2. lets over Commando's 


Voordat de APPLE-II iets voor je kan doen , moet je hem 
vertellen , wat er precies wordt verlangd. 

De APPLE-II vraagt om ondubbelzinnige instrukties , die 
in een juiste volgorde moeten worden gegeven. 

Met onze spreektaal lukt dat gewoon niet. 

Neem bijvoorbeeld het bevel "Geef acht!"-moet de computer 
nu opletten voor wat hierna komt , of moet hij het getal 
8 afbeelden? Aan spreektaal heb je dus niets. 

Vandaar dat je een speciale programmeertaa 1 moet 
gebruiken. 

APPLESOFT is zo'n hogere programmeertaa 1. 

Type nu eens het volgende: 

2+3 

en druk vervolgens op de RETURN-toets. In een oogwenk 
zijn prompt en cursor weer in beeld , echter een regel 
lager. Verder gebeurde er niets. Verwachtte je het 
antwoord van deze rekensom? 


De APPLE-II kreeg ondubbelzinnige instrukties , om in 
zijn geheugen 2 met 3 te vermeerderen. Hij deed dit en 
gaf in een oogwenk de beschikking over het toetsenbord 
terug. 

Dat was niet helemaal de bedoeling. We wilden immers het 
resultaat van de rekensom zien? 

Type nu: 

PRINT 2+3 

en druk op de return-toets. 


Dit keer ontving de APPLE-II ondubbelzinnig opdracht , om 
2 met 3 te vermeerderen en het resultaat te laten zien 
(PRINT=druk af). 

Type nu: 

PRINT 1 , 2;3 , 4 

en druk om een APPLE-II antwoord te krijgen op de 
return-toets. Dat is niet mis! 

1 23 4 

Het is je duidelijk , dat het gebruik van de komma( , )en 
punt-komma(;) te maken heeft met de verdeling van de 
getallen over het beeld. 
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Dat is een juiste conclusie , die overigens van veel 
betekenis is. De komma( , ) wordt namelijk gebruikt , om 
het beeld in kolommen te verdelen. De 40 leestekens , die 
op een regel kunnen , worden erdoor in 3 kolommen 
verdeeld. Een kolom heet een "tab field". 

Onder leestekens verstaan wij letters , tekens , getallen 
en spaties. Misschien is het wel beter , om niet meer te 
spreken over leesteken , maar over karakter. 

LET OP ! ! ! 

Waar je gewoon bent , om getallen "achter de komma" te 
schrijven , gaat dat niet bij de Personal Computer. 
Daarvoor wordt de punt (. ) gebruikt. De APPLE-II kent 
geen "drijvende komma" , maar een vaste punt , die 
gebroken getallen verdeelt! 

Type vervolgens: 

PRINT 2+3 , 1.5*2.5 

Als de opdracht klaar is , gebruik je steeds de 
return-toets , waardoor de APPLE-II weet dat het nu zijn 
beurt is. 

Wat zien we nu op het beeldscherm verschijnen? 

5 3.75 

We gaven de APPLE-II instrukties , om 2 met 3 te 
vermeerderen , vervolgens een "tab field" op te schuiven 
, 1. 5 met 2. 5 te vermenigvuldigen en het eindresuItaat 
af te beelden. 


Om te vermenigvuldigen werd het (*) teken ingevoerd , om 
mi sverstanden met de letter x te vermijden. 

Hetzelfde is het geval met cijfer 0 en de letter o. 

Het zijn eigenwijze dingen , die computers. . . . 


Het gaat erom , op ondubbe 1 zinnige wijze te laten weten , 
wat er nu van de APPLE-11■wordt verlangd. 


Tot zover heb je de computer commando's gegeven , die tot 
een onmiddelijke reaktie leidden. Je had de return-toets 
nog maar amper losgelaten , of de APPLE-II was al klaar 
met zijn opdracht. 


Een veel interessanter soort instrukties behoort tot de 
groep van de INDIREKTE COMMANDO ' S.De indirekte commando's 
worden voorafgegaan door een rege1nummer. Een logisch 
geheel van indirekte commando's heet een programma. 
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Type dit eens : 


10 PRINT "APPELTJE" (return ) 

20 PRINT APPELTJE,2 + 3.7 
30 END 

Iedere keer verschijnt de prompt en de cursor een regel 
lager . 

Door de return-toets geven we aan , dat de betreffende 
programmaregel klaar is . 

Wanneer het programma gereed is , nemen we een commando 
op,die de APPLE-II vertelt , dat we helemaar klaar zijn - 
end (= einde) .0m het programma nu te laten werken , type 
je zonder regelnummer 

RUN 

Oh , oh , wat krijgen we nu ? 


APPELTJE 
0 5.7 


Merkwaardig ? Natuurlijk niet ! De " " in regel 10 zorgen 
ervoor , dat wat tussen die aanha1ingstekens staat , 
later letterlijk wordt weergegeven . 

In regel 20 echter worden geen aanha1ingstekens gebruikt 
en begrijpt de APPLE-II , dat het woord APPELTJE bedoeld 
is , om een rekenkundige variabele mee aan te duiden . 

Zo van APPELTJE =4 (A + B = 6 , weet je nog ?) . 

Omdat APPELTJE geen waarde meekreeg , gaf de APPLE-II aan 
het woord de waarde 0 . 

Om het oorspronke1ijke programma weer op het beeldscherm 
te krijgen , type je - zonder regelnummer - het volgende: 

LIST (return) 

en jawel ! 

10 PRINT "APPELTJE" 

20 PRINT APPELTJE.2 + 3.7 
30 END 

Je vraagt dus gewoon even om de lijst ( LIST ). . . 

Wil je het programma nog eens bekijken , geef je een RUN. 
RUN betekent zoveel als " laat lopen " ! 

Wil je een nieuw programma maken , dan kan het nodig zijn, 
om een oud programma uit te wissen en uit het geheugen te 
verwijderen. De APPLE-II even uit en aan zetten kan 
hiervoor een oplossing zijn .Maar het is geen beste. Het 
kan bepaald minder hardhandig. Je kunt de oude 
regelnummers overtypen ( zelfs al vul je er niets achter 
in ). De oude zijn dan onherroepe1ijk verdwenen . 


2 - 6 



De beste werkwijze is het typen van het woord 
NEW 

De APPLE-II kent dit woord en wist het geheugen in 
afwachting van een geheel nieuw programma . 

Type daarom : 

NEW (return) 

LIST (return) 

Kijk , kijk , er komt geen listing ( programma lijst ) 
meer , want het oude programma is na het statement NEW 
onherroepe1ijk vervallen . 


Het is wellicht goed , om er hier even op te wijzen , dat 
het veelvuldig AAN en UIT schakelen van de APPLE-II 
Personal Computer in feite overbodig is . 

Hoewel de APPLE-II geen nadelige gevolgen ondervindt van 
het aan en uit schakelen , lijkt het aan te bevelen , om 
het systeem telkens zo lang mogelijk onder stroom te 
houden . 

Bij het uitschakelen verlies je programma 1 s en taal . 
Alleen de startprocedure brengt je weer in de juiste taal 
terug . 

De APPLE-II Personal Computer is uiterst energie - 
vriendelijk . 

Het energieverbruik ligt op het niveau van een moderne , 
doorsnee transistorradio en het is uit dat oogpunt niet 
zinvol en noodzakelijk door veelvuldig te schakelen 
energie te sparen . 
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3. Programma ' s corrigeren 


up net toetsenbord van de APPLE-II komen toetsen voor , 
die een bijzondere funktie hebben. Enkele ervan hebben 
een speciale besturingsfunktie , andere dienen om de 
invoer van karakters ( letters , cijfers , tekens en 
spaties ) te vergemakkel i jken. Laten wij nu enkele 
bijzondere toetsen nader bestuderen . 


a. ESC toets 


Links in het toetsenbord vinden we de ESC toets. 

ESC is de afkorting van Escape , d.w.z. " ontsnappen aan," 

Al eerder kwamen we de toets terloqps tegen , toen nij in 
combinatie met de P - toets werd gebruikt (ESC , Shift - 
P , return ) , om net beeldscherm schoon te vegen . 

De ESC toets wordt weliswaar in kombinatie met een andere 
toets gebruikt , maar hij wordt ermee nooit tegelijk 
ingedrukt . 

Eerst de ESC - toets , daarna de andere . 

Voor tekstcorrecties zijn 4 ESC kombinaties beschikbaar : 

ESC A beweegt de cursor 1 plaats naar rechts 

ESC B beweegt de cursor 1 plaats naar links 

ESC C beweegt de cursor 1 plaats naar beneden 

ESC D beweegt de cursor 1 plaats naar boven 

Door de ESC combinaties verschi1lende malen achtereen te 
gebruiken , kan elke plaats op het beeldscherm met de 
cursor worden bereikt , zonder dat het geheugen erdoor 
wordt beinvloed . 


De computers die aangeduid zijn met APPLE-II PLUS of 
APPLE-II EUROPLUS , beschikken naast de bovengenoemde 
besturingsfunkties nog over extra zgn. " edit " funkties 
m. b. v. de ESC I , J , K en M toetsen . 

ESC K beweegt de cursor 1 plaats naar rechts 

ESC J beweegt de cursor 1 plaats naar links 

ESC M beweegt de cursor 1 plaats naar beneden 

ESC I beweegt de cursor 1 plaats naar boven 

Het grote verschil is dat je bij deze cursor - controle 
slechts 1 keer de ESC - toets hoeft in te drukken en in 
willekeurige volgorde de K , J , M en I kan bedienen 
totdat je op de gewenste positie op het beeldscherm bent. 

Druk dan op een willekeurige toets ( behalve I , J , K , 

M , CTRL , ESC en RETURN ) om uit deze " edit - mode " te 
komen . 
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b. — toets 


Deze toets bevindt zich rechts van het toetsenbord . 

Hij beweegt de cursor telkens 1 plaats over het 
beeldscherm naar links . 

Er is echter een interessant verschil met de ESC 
combinaties . 

Wanneer je de toets naar links over een tekstregel 
beweegt , wordt er telkens 1 karakter van die regel uit 
het APPLE-11 geheugen gewist ! Maar het is niet mogelijk 
, om de meest linkse positie van de regel te bereiken - 
daarvoor moet je de ESC B combinatie gebruiken . 


c . — toets 


De toets verplaatst de cursor ( goed geraden ! ) telkens 
1 positie naar rechts. Ook hier een interessant verschil 
met de ESC combinaties. Bij elke verplaatsing naar rechts 
door de cursor , mits uitgevoerd d. m. v. de -*• toets , 
wordt 1 karakter uit de regel in het geheugen gekopieerd. 

De toepassing hiervan bespreken we direkt . 


d. REPT toets 


Deze toets vinden we naast de RETURN - toets. De 
afkorting REPT komt van REPeat , hetgeen " herhaal " 
betekent . 

Het is daarom duidelijk duidelijk , wat voor gevolgen het 
onverhoeds indrukken van deze interessante toets heeft ! 

De REPT toets wordt tegelijk met een andere toets 
ingedrukt . 

Het gevolg is , dat het gekozen karakter zolang wordt 
herhaald , tot die toets , de REPT toets , of beide 
worden losgelaten . 

Type : 


X 

en houdt de X toets ingedrukt. Druk er nu de REPT toets 
bij in en . rrroeoeoetsssch ; 

xxxxxxxxxxxxxxxxxxxxxxxxxxxx.... 

totdat je een of beide toetsen loslaat. Bedenk eens , wat 
er precies gebeurt , wanneer je de lange spatiebalk 
^nder in het toetsenbord ) tegelijk met de REPT toets 
ingedrukt houdt . 

Is de APPLE-11 niet veelzijdig ? 
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e. corrigeren van karakters in een regel 


Je kunt er niet oohe. , oeps , omheen , dat er 

typefouten worden gemaakt. Het zal daarom nogal eens 
voorkomen , dat je te maken krijgt met tekstcorrectie. In 
het computertaaltje noemt men dit " editing " . 

In een aantal gevallen zal de APPLE-II Personal computer 
hiervan tijdens de uitvoering van het programma 
mededeling doen. Er volgt een spontane foutmelding ( zie 
aldaar ) en het programma wordt onderbroken . 

Zo'n foutmelding wordt voorafgegaan door een 
waarschuwende " biep " - toon uit de luidspreker . 

Laten we eens een tout intypen : 

10 PLINT "APPLE-II" 

vervolgens typen we RUN en " biep " : 

?SYNTAX ERROR IN 10 

We zien dus dat er in regel 10 een fout werd gemaakt en 
dat die fout de woordbouw ( van de instruktie ) betrof . 
Het woord SYNTAX heeft bij computers meer betrekking op 
de opbouw van het statement ( het commando , vaak ook de 
instruktie ) , dan op de totale zinsbouw . 


LET OP ! 


Vanaf hier zullen we het gebruik van de return - toets 
niet verder specificeren. Zodra een opdracht , of 
programmarege1 klaar is , drukken we op de return - toets. 


Terug naar onze opzettelijke fout . 

Door LISI 10 te typen , halen we de foute programmaregel 
weer uit het geheugen op : 

LIST 10 

10 PL INT "APPLE-II" 

0m de fout nu te herstellen , wat noodzakelijk is voor 
een verdere programma uitvoering , kunnen we 2 dingen 
doen : 

a. We typen de gehele regel 10 over. Dat is omsiachtig , 
maar natuurlijk wel afdoend . 

b. We corrigeren de fout. Dat gaat heel goed met de 
hiervoor reeds besproken , bijzondere toetsen . 

Hoe pakken we dit aan ? 

0m te beginnen brengen we de cursor over het eerste 
karakter van de regel 10. Dat is dus het cijfer 1 . 

Je drukt net zo vaak op ESC D tot de cursor op de regel 
is aangekomen en gebruiken eventueel ESC B , om de " 
loper " over de 1 te krijgen. M. a. w. staan 1 en cursor 
nu in hetzelfde " vakje " . 
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Computergebruikers met de Autostart-ROM kunnen dus 1 keer 

ESC indrukken en dan met de I en de J de cursor 

positioneren. De cursor geven we hier aan met een * . 

*0 PL INT "APPLE-II" 

Nu drukken we een paar keer op de — toets , totdat de 
cursor in hetzelfde vakje als'de tout staat : 

10 P* INT "APPLE-II" 

Op deze plaats typen we nu het juiste karakter - r . 

10 PR*INT "APPLE-II" 

Dan bewegen we de cursor d. m. v. de — toets zover naar 
rechts , dat alle karakters van de regel opnieuw in het 
geheugen worden gekopieerd. Tenslotte drukken we de 
return - toets in ( we zijn immers klaar ) . 

Regel 10 is nu hersteld en een RUN van dit programma 
bewijst het succes van ons werk . 

Type vervolgens nogeens : 

LIST 10 

10 PRINT "APPLE-II" 

De reden , waarom het foutieve woord PLINT door de 
computer werd " opengebroken " , is de herkenning van het 
gereserveerde woord INT ( zie aldaar ). Hierop gaan we nu 
niet verder in . 


Even gemakkelijk gaat het tussenvoegen van tekst . 

Je hoeft dus niet in paniek te raken , wanneer mocht 
blijken , dat er een stuk in een progammarege 1 is 
vergeten . 

Ste1 dat we willen typen " HET APPLE-II PERSONAL COMPUTER 
SYSTEEM Terwijl we hier mee bezig zijn komt moeder de 
vrouw met de koffie binnen. Hierdoor afgeleid weten we 
niet meer precies waar we waren en met het commando LIST 
vragen we de ingevoerde programmarege1 op : 

LIST 10 

10 PRINT " HET APPLE-II SYSTEEM " 

Tja , dat was niet geheel de bedoeling. We moeten dus nog 
wat tussenvoegen . 

0m deze tout te herstellen , brengen we de cursor opnieuw 
over het eerste karakter van de programmarege1 . 

*0 PRINT " HET APPLE-II SYSTEEM " 


2-11 



Vervolgens laten we de cursor zover naar rechts lopen , 
tot de cursor op het punt is aangekomen , waar we het 
mankerende tekstgedeelte willen tussenvoegen . 

10 PRINT " HET APPLE-11 * SYSTEEM " 

Door de cursor naar rechts te laten bewegen , hebben we 
de gepasseerde karakters in het geheugen gekopieerd . 
Daar zijn we dus vanaf. Maar nu ? 


Nu moeten we even goed nadenken en opletten ! 

Door een ESC D brengen we de cursor 1 plaats omhoog en 
krijgen nu ruimte , om het missende tekstgedeelte uit te 
typen. Maar let op : eerst 1 spatie invoegen - anders 
zal de tekst straks aan elkaar kleven ! We zien nu : 

* 

10 PRINT " HET APPLE-11 SYSTEEM " 

Type nu de mankerende woorden PERSONAL COMPUTER . 

PERSONAL COMPUTER 
10 PRINT " HET APPLE-II SYSTEEM " 

Haal nu de cursor met ESC B weer terug tot het punt , 
waar we aanvankelijk waren begonnen : 

* PERSONAL COMPUTER 
10 PRINT " HET APPLE-II SYSTEEM " 

De cursor moet nu weer naar beneden ( ESC C ) en met de 
— toets kopieren wij de rest van de programmarege 1 in 
het geheugen. En dan ( voor het laatst ) return . 

Na een LIST 10 moet de gecorrigeerde regel er zo uitzien: 


10 PRINT " HET APPLE-II PERSONAL COMPUTER SYSTEEM " 


Vraag : wat zou er gebeurd zijn , wanneer we na het 
uittypen van de missende woorden de cursor met de < 
toets naar links terug hadden bewogen tot boven de plaats^ 
waar we waren begonnen ? 

Ais je dit begrepen hebt , is de " editing " geen enkel 
probleem meer ! 
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f. het corrigeren van een ongelukje 


Misschien is het al gebeur.i ! Per ongeluk de RESET toets 
ingedrukt , in plaats van de RETURN . 

Het gevolg was nogal spectaculair , nietwaar ? 

De prompt ( wat was dat ook al weer voor ding ? ) 
veranderde in een * . 

M. a. w. schakelde de APPLE-II over op een andere taal , 
in dit geval de " monitor " ( zie aldaar ) . 

Om hem weer in APPLESOFT terug te krijgen , moest je toen 
de computer uit en aan zetten . 

Niet aardig , om de dienstbare APPLE-II zo hardhandig aan 
te pakken voor een zelfgemaakte tout ! 

Dat kan ook anders . 

Mocht zich deze "vergrijping" nogeens herhalen , druk je 
slechts CTRL-C , return , om de juiste taal weer terug te 
krijgen en vernietiging ( wissen ) van het lopende 
programma te voorkomen . 

Mocht deze procedure , om wat voor reden dan ook , niet 
gelukken , druk je CTRL-B , return , om weer in APPLESOFT 

te komen , maar. helaas , helaas . het lopende 

programma is dan vernietigd ( "gekilled" zeggen 
deskundigen ) . 


Het indrukken van de RESET - toets heeft geen gevolgen 
voor APPLE-II PLUS en EUROPLUS computers. De cursor keert 
terug in APPLESOFT ( of Integer - Basic , athankelijk van 
de gebruikte taal ) en het programma kan ge-LIST en 
ge-RUNd worden. De laatst ingevoerde regel is echter niet 
aan het programma toegevoegd , waardoor het RUNnen van 
het programma vreemde verschijnse1en te zien kan geven. 


Recentere versies van de APPLE-II zijn uitgerust met een 
"Encoder Board". Dit board stelt je in staat op twee 
manieren van de RESET - toets gebruik te maken. 

De eerste manier is de "standaard" functie van RESET. 

Voor diegenen die wat angstig zijn voor het indrukken van 
deze toets , of liever niet direkt met een leeg scherm 
geconfronteerd willen worden na het ( per ongeluk ) 
indrukken van de toets , is er een tweede functie. 

Deze kan geselecteerd worden door de schakelaar op het 
"Encoder Board" zo te zetten , dat deze gel ijk valt met 
het witte rechthoekje. 

Na deze modificatie zal je APPLE-II alleen reageren op 
een CTRL - RESET , die gegenerveercl kan worden door zowel 
de CTRL - als de RESET - toets in te drukken. 

Kijk je documentatie na of jouw APPLE van dit board 
voorzien is ! 
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g. weghalen van een ingevoerde regel 


Het komt vaak voor , dat je een regel aan het invoeren 
bent , die bij nadere bestudering niet correct blijkt . 
Stop met verder typen en druk CTRL - X . De regel wordt 
dan direkt gewist en je kunt overnieuw beginnen . 

Probeer het volgende , wat verder gaande programma : 

10 PRINT "IK BEN" 

20 PRINT "APPLE-11" 

30 PRINT "PERSONAL COMPUTER" 

40 PRINT "DE BAAS" 

Wanneer je van mening bent , dat we teveel opscheppen 
over de APPLE-II Personal Computer , haal je gewoon regel 
20 en 30 weg. Dit kan op twee manieren : 

1 . Type : 

20 

30 

Daarmee zijn die regels " ieeg gemaakt " , spelen ze 
verder in het programma geen rol en worden ze door de 
APPLE-II verwijderd . 

2. De beste manier is gebruik te maken van het statement 
DEL . 

Dit , wat aanstootgevend statement is de afkorting van 
DELete ( = laat weg ) . 

Type daarom : 

DEL 20,30 
RUN 

IK BEN 
DE BAAS 

Oh zo ! Probeer nu regel 10 met het DEL statement uit het 
programma te verwijderen. Mocht dat niet lukken , probeer 
het dan nog eens op de eerst genoemde manier. Succes ! 


Overzicht van a 11 e speciale control en editing karakters 

RESET Onderbreekt direct elk lopend programma en RESET 
de computer. Het systeem laat een toontje horen, 
komt in de Monitor , en geeft * als prompt . 

( NIET BIJ COMPUTERS MET AUTO START-ROM ) 

Het gebruik van de RESET toets vernietigt geen 
bestaande BASIC of machinetaal programma 1 s . 


CTRL-B Vanuit de Monitor ( promptkarakter * ) zal , 

CTRL-B, return overgang naar APPLESOFT tot gevolg 
hebben. 

Elk bestaand BASIC programma wordt " gekilled " ; 
HIMEM wordt op de hoogste RAM lokatie gezet 
( zie aldaar ) . 
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CTRL-C Vanuit BASIC stopt dit commando de programma1oop, 
en meldt : BREAK IN XXXX . 

Vanuit de monitor zal CTRL-C , return overgang 
naar APPLESOFT tot gevolg hebben , zonder dat 
bestaande programma 1 s worden vernietigd . 

CTRL-G Activeert de luidspreker . 

CTRL-H Plaatst de cursor 1 plaats naar links, verwijderd 

overschreven karakters uit het geheugen , maar 
niet van het scherm. Gelijk aan — toets . 

CTRL-J Nieuwe regel ( Line Feed ) . 

CTRL-V Complement van CTRL-H. Plaatst cursor een positie 

naar rechts en kopieert karakter van scherm naar 
geheugen . Gelijk aan — toets . 

CTRL-S Laat een LISTING stoppen en hervatten 

(Alleen bij APPLE-II PLUS en EUROPLUS ) 

CTRL-X Verwijdert lopende regel van scherm en uit 
systeem . 


ESC 

A 

, K 

Cursor 1 

plaats 

naar 

rechts 


ESC 

B 

, J 

Cursor 1 

plaats 

naar 

links 


ESC 

C 

, M 

Cursor 1 

plaats 

naar 

beneden 


ESC 

D 

, I 

Cursor 1 

plaats 

naar 

beneden 


ESC 

E 


Wist het 
einde de 

scherm 

regel 

vanaf 

de cursor 

tot het 

ESC 

F 


Wist het 

gehele 

scherm vanaf de 

cursor 

ESC 

9 

SHIFT-P 

Wist het 
boven in 

hele scherm 
het scherm 

en plaatst 

de cursor 


LET OP : 


SHIFT-X Druk SHIFT toets in , druk X in , laat 
X 1os , laat SHIFT los . 

CTRL-X Druk CTRL toets in , druk X in , laat X los laat 
CTRL los . 

ESC X Druk ESCAPE toets in , laat ESCAPE los , druk X 
in ,laat X los . 

REPT X Druk X in , druk REPT in , laat REPT los , laat 
X los . 
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4. Wat is APPLESOFT ? 


Een APPLE zonder programma is als een auto zonder 
benzine. 

A11 e onderdelen zijn wel aanwezig , maar er is nog 'iets 1 
nodig , om het geheel te laten werken. Voor de auto is 
dat ' iets ' benzine. Voor de APPLE-II is het de 
programmatuur , die men vaak " software " noemt . 


Als je je nieuwe wagen uit de garage ophaalt , zorgt de 
garagehouder er wel voor , dat er wat benzine in de tank 
z i t . 

Met de APPLE-II Personal Computer is dat niet anders ; je 
krijgt hem met een hoeveelheid ingebouwde software 
In tegenste 11ing tot de benzine raakt de 
computer-software niet op en is h’ij telkens opnieuw 
beschikbaar ! 


De ontwerper van de APPLE heeft de software ondergebracht 
in heel kleine e 1 ectronische komponenten , die men PROM's 
noemt . 

De PROM is een ( voor de ontwerper ) programmeerbaar 
uitleesgeheugen. Hij heeft er dus wat software ingestopt 
, die wij er - om het zo te zeggen - slechts kunnen 
uithalen. Deze software maakt het je gemakkelijk , om 
bepaalde programma ' s te ontwikkelen . 

Het schrijven van programma's voor de computer kan op 
verschi1lende manieren gebeuren. We kunnen het in machine 
- code doen , in het tweetallig stelsel. Deze binaire 
werkvorm is moeilijk en geeft een grote kans op later 
nauweiijks terugvindbare fouten . 

Overigens zijn wij wel gewend aan het tientallig stelsel, 
dat loopt van 0 tot 9. Je weet toch nog , dat het getal 
10 de combinatie is van 1 en 0 ? Nee , nee , zo lang is 
dat nog niet geleden . 


Een stap verder is het schrijven in assembly. De assembly 
- language ( language = taal ) is een symbolische 
weergave van machine instrukties. De kans op het maken 
van fouten is misschien kleiner , het werken met de 
symbolische machine - instrukties ( mnemonics ) is verre 
van gemakkelijk . 

Omdat de instrukties ook in dit geval tweetallig 
gecodeerd in het geheugen moeten komen , is er een 
vertaal programma nodig. Dit programma noemen we een 
assembler. Nog een stap hoger vinden we computertalen , 
die de spreektaal steeds dichter gaan benaderen. In deze 
hogere programmeerta1en is een enkel 1 statement 1 
( = direkt uit te voeren commando , of een 
bewerkingsinstruktie ) vaak gelijk aan meerdere machine - 
instrukties .Het zal daarom duidelijk zijn , dat het 
vertaalprogramma hierbij veel ingewikkelder is , dan de 
assembler . 
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Er zijn 2 typen vertaa1programma 1 s voor hogere 
programmeerta1en : de compiler en de interpreter . 

Een compiler ( spreek uit : kompijler ) vertaalt het 
programma uit een hogere programmeertaal in zijn geheel 
naar machine - code en voert dit vervolgens uit . 

Een interpreter ( spreek uit : inturprittur ) vertaalt 
steeds een stukje uit het programma en voert dat eerst 
uit , om weer verder te gaan. Bij programma 1 s , die 
door een interpreter vertaald moeten worden , staan de 
gegevens in een niet - vertaalde vorm in het geheugen. 
Het grote voordeel hiervan is , dat je een haast 
intelligent kontakt met de computer kunt hebben. Als een 
statement wordt ingevoerd , vertaalt de interpreter dit 
en kan hij het direkt uitvoeren , of een onmiddel 1 ijke 
foutmelding laten volgen. Je kunt op deze wijze de 
programmeertaal snel onder de knie krijgen . 

Een nadeel is , dat een programma - onderdeel , dat 
verschi1lende malen moet worden uitgevoerd , ook 
verschi1lende malen moet worden vertaald . 

De APPLE-11 is uitgevoerd met een uitgebreide BASIC 
Interpreter . 

Voorts is hij voorzien van een assembler , een 
disassembler voor terugverta1ing , en een systeemmonitor 
voor het ontwikkelen en testen van programma ' s in 
machinetaal . 

Om je te laten weten , welk gedeelte van de 
systeemsoftware op het moment aktief is , werd de prompt 
ingevoerd . 

De prompt geeft aan , welke taal er wordt gesproken en 
bij het invoeren van gegevens wordt verwacht. Als je aan 
de beurt bent , om iets in te voeren , staat de prompt 
links aan het begin van de regel. 

Voor monitor is dat een * . 

Voor APPLESOFT 1 . 

Voor INTEGER BASIC > . 

Voor assembler ! . 


Door CALL -151 kom je van APPLESOFT op een kalme manier 
in monitor . 

Door F666G te typen kom je 'van monitor in assembler , 
indien er een zgn. Integerkaart in de APPLE-II is 
gemonteerd . 

Tenslotte kom je met RESET , C081 uit monitor in Integer 
Basic ( niet standaard aanwezig bij de APPLE-II PLUS ). 
Gewoon mee experimenteren , maar zorg dat je hierna weer 
terug bent in APPLESOFT , omdat we het daarover verder 
zullen hebben . 
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APPLESOFT is een zeer uitgebreide BASIC programmeertaa 1 . 
BASIC kwam kort na 1960 in de Verenigde Staten tot 
ontwikkeling en betekent " voor Beginners geschikte 
Algemene Symbolische Instruktie Code Behalve de BASIC 
commando 1 s en instrukties , die algemeen toegepast 
kunnen worden , kent APPLESOFT een aantal 
machine-gerichte eigenschappen . 

Dat zijn de moge1 ijkheden voor het werken met grafieken 
in een grof en zeer fijn raster , de 4 analoog / digitaal 
kanalen bijvoorbeeld voor spelletjes en geluid . 

Nu is het overigens niet zo moeilijk , om- geluid te maken 
met de APPLE-II . 


Je kunt er met je vingers op trommelen , met je nagels 
aan krabben en je kunt hem natuurlijk uit je handen iaten 
vallen.... Wij bedoelen echter het opwekken van geluid 
met APPLESOFT instrukties . 


In het hierna volgende hoofdstuk gaan we in op het 
gebruik van de BASIC programmeertaa 1 , zoals die met 
voorbehoud van enkele verschillen , op de meeste 
computers met een BASIC Interpreter voorkomt . 


Natuurlijk komen ook de specifieke APPLE-II uitbreidingen 
aan de orde. Het gaat daarbij niet om een 
programmeercursus , maar een overzicht van de vele 
beschikbare statements met hun syntactische opbouw. De 
statements behoren nu eenmaal op een bepaalde wijze te 
worden geformuleerd. De syntax moet voor de APPLE-II 
foutloos en begrijpbaar zijn , wil een commando , of een 
verwerkingsinstruktie uit een programma op een 
tevredenste1 lende manier worden uitgevoerd . 


Genoeg met al dit moeilijks . 


Het gaat erom , dat je prettig en efficient met je 
Personal Computer werkt. Daarvoor bestaan er dus 
'spelregels 1 en daarin gaan we ons straks verdiepen. 
Probeer zoveel mogelijk uit en wees niet bang dat er iets 
kapot zal gaan . 

Tenminste zolang je slechts probeersels via het 
toetsenbord binnen de computer brengt . 


Aan de prompt kun je zien , of je in APPLESOFT bent. Het 
1 in 1 een bepaalde taal 1 zijn 1 , behoort tot het 
computer - jargon , we beginnen nu langzaam aan ingewijd 
te raken . 
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Voor we gaan beginnen met het volgende hoofdstuk nog een 
paar raadgevingen. Het kan gebeuren , dat je iets 
ingevoerd hebt ,• waardoor de APPLE-II geen zinvolle 
programma 1 s meer uitvoert , maar weigert het 
toetsenbord aan je terug te geven. We noemen dat : 

" Het systeem hangt !" 

Zo 1 n toestand hef je altijd op met een RESET ! 

Om het programma weer terug te krijgen , type je : 

CTRL-C , return 

Ook voor het onderbreken van een lopend programma gebruik 
je : 


CTRL-C , return 

Zit de zaak op alle mogelijke manieren vast en ' hangt 1 
het systeem , dan rest slechts : 

RESET , CTRL-B , return 

Nogmaals , dit is de opstart-procedure en je wist 
bestaande programma 1 s , maar komt in APPLESOFT terug . 


Bij de beschrijving van de struktuur van APPLESOFT 
commando 1 s worden bepaalde tekens gebruikt. Deze geven 
symbolisch nader uitleg over de syntactische definiering. 
M. a. w. je commando 1 s MOETEN juist samengesteld , of 
gedefinieerd , zijn . 


Accolade { en } wordt gebruikt , om aan te geven , dat 
wat er tussen staat herhaald mag worden. Rechte haakjest 
en ] geven aan , dat wat er tussen staat mag , maar niet 
moet , voorkomen. Onze gewone haakjes ( en ) geven aan , 
dat ertussen parameters MOETEN worden opgegeven . 


expr in commando's betekent , dat elke willekeurige 
expressie mag worden ingevuld - dus 
rekenkundige, string , en integer expressie 
( dat laatste wijst zich vanzelf ) . 
aexpr betekent rekenkundige expressie 
sexpr betekent string expressie 

rnum betekent regelnummer 

avar betekent array variabele 

svar betekent string variabele 

var betekent rekenkundige , string of integer 

variabele 

string betekent string 

lit betekent literal 

real var is een real variabele 
enz . 


Neem hier gewoon kennis van ; later wordt de betekenis 
vanzelf aanmerkelijk duidelijker . 
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A1 s van een expressie of variabele de absolute waarde 
wordt bedoeld , dan wordt dit aangegeven door / / . 
De waarde van variabele 1 wordt dan /var 1/ . 
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HOOFDSTUK 3 PROGRAMMEREN IN BASIC 


1. Het getallensysteem 


Om te begrijpen , wat de Personal Computer met de hem 
aangeboden getallen doet , is het handig even wat 
vroegere schoo1 herinneringen bij je op te halen. 

Het zal je toen niet zijn ontgaan , dat er tijdens de 
rekenles werd gesproken over 1 gehele getallen 1 en over 
1 gebroken getallen 1 . 

Tot de gehele getallen behoren 2,-3, 255 , -32767. 
Gebroken getallen zijn 1.75 , -0.162. 

0m dit niet onnodig ingewikkeld te maken , schuiven we de 
soms moeilijk te bevatten 1 algebraische irrationele 1 

zoalsV2 = 1.414. en de ' transcendente irrationele 

getallen 1 , zoals In 2 = 0.693 en e = 2.718.ook 

onder de noemer van de gebroken getallen. We vermelden 
dit maar even , om boze reakties te vermijden. 

Gehele getallen en gebroken getallen. 


Dat vonden de ontwerpers van BASIC ook , toen zij hun 
' real precision ' en 1 integer ' getallen invoerden. Het 
gaat daarbij om de nauwkeurigheid van de getallen. Het 
merkwaardige doet zich hierbij voor , dat de laatste 
jaren in steeds sterker wordende mate ten onrechte het 
begrip ' integer 1 in onze taal is binnenges lopen , als 
aanduiding voor het gehele getal. Het is ook zo'n mooi , 
kort woord ; maar het hoort eigenlijk niet in onze taal 
thuis. 

De integer is een geheel getal. 

Het 1 real precision 1 getal is het gebroken getal. 


Zoals je eerder hebt gezien , wordt er geen getal achter 
' de komma ' genoteerd , omdat de komma ( , ) een rol 
speelt bij de rege1verde1ing , ook wel het print-formaat 
genoemd. 

Om de gebroken getallen te noteren , gebruiken we 
de punt (.). 

Dit verklaart het enthousiasme voor het fraaie begrip 
'floating point ' , dat vaak in computerboeken opduikt. 

De APPLE-11 kan inwendig werken met een grotere 

nauwkeurigheid , dan 8 getallen achter de. punt. Dat 

heeft een aantal interessante gevolgen. Je zult even 
moeten wennen aan de wijze , waarop Personal Computers de 
geta1 spreeisie op het beeldscherm brengen. 


Gehele getallen moeten liggen tussen -32767 en 32767. 
Gebroken getallen moeten liggen tussen -10"38 en 10"38. 
Het A teken betekent macht. 


De 1 floating point 1 notering ziet er nu als volgt uit : 
+ 1.11111111 E + 00 
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Op het eerste gezicht wat raadselachtig , maar dat valt 
mee. 

Eerst komt het teken ( + of - ) van het getal , dat 
overigens bij positieve ( + ) getallen niet wordt 
weergegeven. Voor de punt wordt 1 getal afgedrukt , dat 
niet 0 moet zijn . 

Anders wordt daar geen getal voor de punt geplaatst. 
Vervolgens komt een mantisse van 8 cijfers na de punt. 

De E duidt erop , dat het afgebeelde getal tot een macht 
van 10 verheven moet worden , waarvan het teken (+ of -) 
gevolgd moet worden door die exponent. 


Bijvoorbeeld : 

1 * 10"20 wordt : 1E+20 

De APPLE-11 laat overbodige nullen (0) in de mantisse 
wegvallen , en als er na de onderdrukking van nullen 
helemaal geen mantisse meer overblijft , wordt natuurlijk 
geen decimale punt afgedrukt. 


Je mag maximaal 38 cijfers via het toetsenbord invoeren 
maar de computer beschouwt de eerste 10 cijfers als 
betekenis vo1. 

Het tiende cijfer wordt afgerond. 

Als je invoert : 

PRINT 1.23456787654321 

zal APPLESOFT antwoorden met : 

1 .23456788 

Bij optellingen en aftrekkingen kan het gebeuren , dat je 
waarden bereikt , die uitgaan boven de 1 real precision 1 
grens ! 

Zo is het mogelijk , om het getal 1.7*10"38 te bereiken , 
zonder dat een foutmelding volgt. 


Hier volgen nog enkele geta1svoorbee1 den : 


+ 1 

wordt 

i 

-1 

wordt 

-i 

255 

wordt 

255 

-23.460 

wordt 

-23.46 

1*10"20 

wordt 

1 E+20 


Type nu : 


-12.3456789*10 ~10 

Ben je erin gelopen ? Er gebeurde helemaal niets ? 
Toch niet PRINT vergeten ? Het wendt heus wel ! 




Tracht te verklaren , waarom er het volgende te zien is : 
1 .2345679 E+11 

Als een getal wordt weergegeven , dan gelden de volgende 
regels. 

1) als een getal negatief is , wordt het - teken 
afgedrukt. 

2) als de absolute waarde van een getal een integer is 
tussen 0 en 999999999 , dan wordt hij geprint als 

integer. 

3) als de absolute waarde van een getal groter is , of 
gelijk is aan 0.01 en kleiner dan 999999999.2 dan 
wordt dat getal zonder exponent afgedrukt. 

4) als het getal niet tot groep 2 en 3 behoort , valt het 
onder de floating point notering. 
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2. Het Printformaat 


Het tekstvenster van de APPLE-II is 40 karakters breed en 
24 regels hoog. Het is mogelijk om dit venster kleiner te 
maken. Daarop komen we later terug. 

Wanneer je een programmarege1 invoert , zal er telkens 
een regel op het scherm open blijven. Dat is nodig , om 
de computer de mogelijkheid te geven tussen beide te 
komen. Als er iets mis gaat , antwoordt hij op de 
tussenregel. 

Maar is de invoer langer , dan 1 regel , dan gaat de 
APPLE-II terdege op de eerstvo1gende regel verder. 

Probeer even : 

PRINT "HET IS EEN HEEL GEWONE ZAAK , DAT DE APPLE Z0 
DOET" 

Zie je - je moet het gewoon even weten. Om iets op het 
beeldscherm afgedrukt te krijgen , gebruiken we het 
commando PRINT ( = druk af ). 

Een PRINT heeft de overgang naar een nieuwe regel tot 
gevolg , wanneer het niet wordt gevolgd door een ; of 
Dat is van belang bij het samenvoegen van tekstregels. 
Wordt een PRINT commando afgesloten met ; dan wordt een 
volgend PRINT commando op dezelfde regel afgedrukt op de 
plaats , waar het eerste commando ophield ! 

Probeer het volgende programma : 

10 PRINT "DIT IS";:PRINT "APPLE-II" 

20 PRINT "DIT IS" 

30 PRINT "EEN PROEF" 

40 PRINT "DIT IS" 

50 PRINT " APPLE-II" 

RUN 

Op het beeldscherm verschijnt het volgende : 

DIT I SAPP LE-11 
DIT IS 
EEN PROEF 
DIT IS APPLE-II 

Houdt dus rekening met eventueel noodzakelijke spaties ! 
Je ziet welke functie de ; heeft. In regel 10 maakten we 
gebruik van het feit , dat meerdere statements op 1 regel 
mogen. Dit bespaart in belangrijke mate geheugenruimte. 
Ten hoogste kunnen er 239 karakters op 1 regel. 

Een bezwaar van verschi1lende statements op 1 regel is de 
moeilijkheid eventuele fouten in zo'n lange regel later 
gemakkeljk te herstellen. De verschi 1lende statement 
begrenzen we door : te typen. 

Onderzoek : 

10 PRINT/' DAT " : P RIN T "IS";:PRINT " TE GEK!" 
Verklaar, waarom een RUN zo'n wonderlijk resultaat heeft! 
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Een PRINT commando , dat afgesloten wordt door een komma 
( , ) heeft tot gevolg , dat een volgend PRINT commando 1 
' tab field 1 verder wordt afgedrukt. A1 eerder kwam dit 
ter sprake. Een regel is ingedeeld in 3 1 tab fields ' 

(= tabu 1 atieve 1 den ). Erg gemakkelijk bij het maken van 
tabe11en. 

Laten we nu a 11e theorie met een praktisch voorbeeld 
aanvu 11en. 

Hier is een programma met wat reistijden. 

5 PRINT TAB(10) "*REI ST IJDEN*" 

10 PRINT"AFSTAND"; :PRINT TAB(14)"SNELHEID";:PRI NT 
TAB(30)"TIJD/UUR" 

20 A=40 : B = 100 
30 T=A/B 
40 PRINT A,B,T 
50 A = A+1 0 

60 IF A=230 THEN 80 
70 GOTO 30 
80 END 

LET OP ! ! 

Er zjn enige restricties aan het gebruik van de 
tabu 1 atieve 1 den : 

De APPLE-II laat alleen het gebruik toe van het tweede 
tabu 1 atie.veId ( pos. 17 tot 32 ) indien positie 16 van 
het eerste veld NIET beschreven is. Zo zal het derde 
tabulatie veld ( pos. 33 tot 40 ) niet afgedrukt worden 
indien de posities 24 t / m 32 beschreven zijn. Hiermee 
dient rekening gehouden te worden als er een 1 kop ' aan 
de tabellen gegeven dient te worden. 

Vervang regel 10 in het bovenstaande programma eens door: 
10 PRINT "AFSTAND", : PRI NT "SNELHEID", :PRINT "TIJD/UUR" 


Dit is wel even anders. De D op positie 24 is er de 
oorzaak van dat het derde ' tab field ' niet beschreven 
wordt. 
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3. Variabelen benoemen 


Zoals uit het voorgaande , kleine oefenprogramma blijkt 
gebruiken we de letters A , B en T bij het uitvoeren van 
meervoudige berekeningen. De A voor de afstand , B voor 
de snelheid , die we de waarde 100 ( k/u ) gaven en 
tenslotte de T voor tijd. De A , B en T noemen wij 1 
variabelen '. 


Regel 60 en 70 waren 1 flow control 1 commando's , die de 
loop van het programma beinvloedden. Deze commando's 
komen later aan de orde. 

Een ' variabele 1 is niets meer , dan een geheugenlokatie 
binnen de APPLE-II computer , die aangeduid wordt met een 
letter. 

De naam van een variabele moet beginnen met een letter en 
mag gevolgd worden door elk a 1fanummeriek karakter. 

Een alfanummeriek is elke letter van A tot Z en elk 
cijfer van 0 tot 9. 

Een naam van een variabele mag zelfs 238 karakters lang 
zijn ! 

DUS : 


ABCDEFGHIJKLMNOPQRSTUVWXYZ. 

en dat 9 keer mag , maar bedenk dat APPLESOFT slechts de 
eerste 2 karakters gebruikt , om namen te onderscheiden. 


M.a.w. zal een programma in de war raken , wanneer wij 
variabelen benoemen als GOUDVIS en G0UDK00RTS. Alleen de 
letters G en 0 zijn van betekenis. Er is op deze regel 
( natuurlijk ! ) een uitzondering. 

Wanneer wij een variabele benoemen , waarin een zgn. 
APPLESOFT gereserveerd woord zit , spoort APPLESOFT dit 
verboden en daarom ' illegale ' woord op en geeft een 
foutmeIding . 

Probeer : 

10 SP0KEN=3 
20 PRINT SPOKEN 
30 END 
RUN 


en.' biep ' : 

7SYNTAX ERROR IN 10 

Je wijzigt de variabele SPOKEN in SPAKEN en geeft een 
RUN. 
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Het antwoord van de APPLE-II is nu : 

3 

Tracht nu in de lijst van gereserveerde woorden ( zie 
aldaar ) de oorzaak te vinden van de foutmelding. 


LET OP ! 


Wijzig in regel 20 de variabele SPAKEN in SPEKEN en geef 
een RUN. 

Het antwoord is : 

3 

Heb je nu doo'r , wat er met het benoemen van variabelen 
aan de hand is ? Lees anders het voorafgaande opnieuw 
goed door. 


Het benoemen van variabelen is van aanmerkelijk belang. 
Het is een middel , om geheugenruimte te sparen en de 
snelheid van de programma-uitvoering met een faktor 10 te 
verhogen. 

Beginnen we bij een programma met het benoemen van de 
variabelen , dan kost het de APPLE-II later in het 
programma weinig tijd , de bijpassende waarden op te 
sporen. 

Dit geldt ook voor programmaregels , die veelvuldig 
gebruikt moeten worden en waarnaar in het programma 
verwezen wordt. Neem deze regels zover mogelijk vooraan 
in je programma op. 


Variabelen krijgen van de APPLE-II automatisch de waarde 

0 . 

Ue kunt de ingevoerde variabelen zelf van elke , andere 
waarde voorzien. 

Slim is : A=4 : B=A+2 : C=B-A i. p. v. C=2 : A=4 : B=6. 
Houdt er rekening mee dat de waarde van na het (=) teken 
wordt toegekend aan de waarde van voor het (=) teken. 

De waarde van een variabele gaat verloren en de ruimte , 
die ervoor in het geheugen was vrijgemaakt , wordt 
anders bestemd , wanneer : 

a) wij een regel aan het programma toevoegen , of een 
regel eruit verwijderen. 

b) er een CLEAR commando wordt gegeven ( zie aldaar ). 

c) het RUN commando wordt gegeven. 

d) er NEW wordt getypt. 


3- 7 



LET OP ! 


Dit betekent niet , dat de APPLE-II de door jouw benoemde 
waarde van een variabele op 0 gaat zetten. .. Er zit echt 
geen klein mannetje in de APPLE-II , die met het vlakgom 
rond gaat. ... Wei worden de waarden van afhankelijke 
variabelen op 0 gezet. Dus ergens in het programma wordt: 


A + B = C C voorlopig 0 

tot de loop van het programma er een andere waarde aan 
toekent , zo er nog een volgende loop komt. 


De namen van zgn. integer variabelen moeten eindigen op 

%. 

Bijvoorbeeld B% of C%. 

De waarden van integer variabelen moeten liggen tussen 
-32767 en +32767 , zoals afspraak is voor gehele 
getalien. 

Toch worden zij eerst omgerekend naar ' real precision 1 , 
voordat zij gebruikt worden in berekeningen. Dat is nodig 
om bij het terugrekenen naar een geheel getal 
afrondingsfouten te voorkomen. 

Als een waarde wordt teruggeconverteerd naar integer ( zo 
heet dat in computertaal ) , dan wordt hij naar beneden 
afgerond . 

Dus : 


10 A % =.9 9 9 
20 PRINT A% 
RUN 
0 


Integer variabelen zijn niet toegestaan in FOR.... en 
DEF. .. statements . 


Een reeks karakters wordt in APPLESOFT een 1 literal ' 
genoemd. Je kunt dit ongeveer vertalen met het woord 
1 z i n ' . 

Een literal tussen " " ( aanha 1 ingstekens ) noemen we een 
1 string '. De string is van veel belang en biedt ons 
geweldige mogelijkheden. 

10 PRINT " DIT IS EEN STRING " 

RUN 


Naast de alfanummerieke variabelen kennen we 
stringvariabelen. 

Ook daaraan kunnen we een specifieke waarde toekennen. 
De namen van stringvariabelen moeten eindigen op een 
$ teken. 
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Probeer : 


NEW 

10 A$= "COMPUTER" 

20 PRINT A$ 

RUN 

COMPUTER 

Nu we toch een 1 waarde 1 hebben toegekend aan een 
stringvaria be 1e , kunnen we gelijk even vragen naar de 
lengte van de string : 

20 PRINT A$, :PRINT LEN(A$),:PRI NT L E N( " JA") 
let nu goed op : 

RUN 

COMPUTER 8 3 

Het LEN statement komt van LENgte. Hoe komt het , dat het 
beeldveid na de uitvoering van dit programma zo is 
ingedeeld ? 

Waarom werd aan JA de lengte 3 toegekend? 


Het aantal karakters van een string mag maximaal 255 
bedragen. 

De string mag niet langer zijn dan 255 leestekens , 
cijfers en spaties. Probeer zo'n zin te maken en verbaas 
je over de ontzettende lengte , die bereikt kan worden. 


Een string die geen karakters bevat , heet een 
1 nul -string 1 . 

Er worden geen karakters van afgedrukt ( hoe kan het , 
zou je zeggen ) en de cursor slaat hem a. h. w.over bij 
het maken van kolommen. 


Type : 

30 PRINT LEN(Q$);Q$,3 
RUN 30 
0 3 

Vergelijk de schrijfwijze van de verschi1lende 
instrukties in dit programma. Er zijn k1aarblijke1ijk 
verschi1lende moge1ijkheden , die tot hetzelfde resultaat 
( tekstverde1ing ) leiden. Welke zal het zuinigst 
omspringen met de geheugenruimte ? 


Samenvoeging van strings is mogelijk. Je maakt gewoon een 
optelsom van strings door er een + teken tussen te 
p 1 aatsen. 
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Beproef het volgende : 


NEW 

10 A$ = "HET GAAT" 

20 B$=A$+" GOED MET DE APPLE-II " 

30 PRINT B$ 

RUN 

HET GAAT GOED MET DE APPLE-II 

Denk altijd om de noodzakelijke spaties , die overigens 
terdege aangemerkt worden als karakters. Je ziet ze niet 
- ze zijn er toch en tellen mee. 

Interessant is , dat A , A$ en A% aangemerkt worden als 3 
verschi1lende variabelen. Zij mogen tegelijk in een 
programma voorkomen. 

Tijd voor een kleine samenvatting : 

10 A$ = "HET GAAT" 

20 B$ = A$+" GOED MET MIJ" 

30 PRINT B$ 

40 A%=3.8765 

50 A=5.6780 

60 PRINT LEN(B$),A%,A 

RUN 

HET GAAT GOED MET MIJ 

21 3 5.678 

Het zal je duidelijk zijn , dat variabelen en strings een 
belangrijke rol bij het programmeren spelen. 

Wanneer een onderwerp niet duidelijk is , lees dit dan 
beslist nog een keer over! 

Let op de funktie van de : de , en de 
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4. Logische en rekenkundige regels 


Misschien herinner je je de beroemde rekenkundige 
ezelsbrug : 

1 Meneer Van Dale Wacht Op Antwoord 

Eerst machtsverheffen , daarna vermenigvuIdigen , delen , 
worteltrekken , optellen en aftrekken. Wanneer je en 
ingewikkelde rekensom moest uitrekenen , hield je met 
deze regel rekening. 

Anders zou de som als 2+3*6 voor jou 30 tot resultaat 
hebben , i. p. v. 20. Bij de APPLE-II Personal Computer 
is dit niet anders. 

Er bestaan voor de APPLE-II een aantal 1 voorrangsrege 1 s 1 
die wij hierna zullen opsommen. Omdat de expressies 
( zeg : getallen ) van links naar rechts worden 
uitgewerkt , zullen operatoren met eenzelfde 1 voorrang ' 
( prioriteit ) in volgorde van hun verschijning worden 
afgewerkt. Optellen , delen etc. noemt men in de wiskunde 
een 1 operatie 1 en het teken , dat bij zo'n operatie 
wordt gebruikt heet de operator ( bijv. + of - ). Wanneer 
je een expressie tussen ( ) schrijft , gelden binnen de 
haakjes de normale voorrangsregels , echter wordt hetgeen 
tussen de ( en ) staat eerst uitgewerkt. Daarna wordt de 
uitkomst met eventuele expressies buiten de haakjes 
bewerkt. 

PRINT (2+3)*6 

RUN 

30 

Er zijn 3 categorieen operaties te onderscheiden : 

a) Wiskundige operaties 

b) Relationele operaties 

c) Logische operaties 

Ad a) tekens zijn + - * / = 

Ad b) tekens zijn =< <=>> = <> 

Ad c) tekens zijn NOT OR AND 


De voorrangsrege1ing van deze operatoren is als volgt : 

1. () Formules tussen haakjes eerst uitwerken 

2. NOT , + - De + en - als teken voor exponent ; de 
ontkenning. 

3. * Machtsverheffen 

4. /* Delen , vermenigvuIdigen in volgorde van 
1angskomen. 

5. +- Optellen , aftrekken in volgorde van langskomen. 

6. De relatie-operatoren in volgorde van langskomen. 

7. De logische operatoren , eerst AND , daarna OR. 
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De logische operatoren kunnen worden gebruikt voor 
Boolese Verge 1ijkingen , waarbij de logica getoetst wordt 
aan de rekenkunde. We kunnen de APPLE-II daarmee 1 de 
waarheid 1 laten spreken. Wat waar is , wordt 1 - wat 
onwaar is 0. 

PRINT NOT 1,NOT 0 
RUN 

0 1 

De APPLE-II vindt , dat wat niet waar is , onwaar is en 
wat niet onwaar is waar ! Echt iets , om op een 
regenachtige dag over na te denken. 
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5. Nog iets over commando 


s 


Zoals je hebt gezien , mogen een aantal commando 1 s in 
APPLESOFT worden gebruikt in de zgn. 1 immediate mode 1 
( spreek uit : immidie-ut mood ). Deze commando 1 s 
werden zonder regelnummer ingetypt en direkt na RETURN 
uitgevoerd. 

De 1 immediate mode 1 betekent 1 onmiddel1ijke werking 

In tegenste11ing hiermee maakten we enkele programma 1 s 
in de 1 deferred mode 1 (spreek uit : diefurd mode ) , 
waarbij we van regelnummers gebruik maakten. 

1 Deferred mode 1 wil zoveel zeggen als 1 vertraagde 
werking 

De regelnummers mogen gaan van 0 tot 63999. 

Het is een gewoonte , om tussen de regelnummers wat 
afstand te bewaren voor latere tussenvoegingen en 
veranderingen. 

Vandaar dat wij van regel 10 naar 20 en van 20 naar 30 
over gingen. Dan hebben we wat ruimte voor extra 
regelnummers ertussen. 


In de deferred mode wordt de return-toets gebruikt om een 
programmaregel in het geheugen op te slaan. Door het 
commando RUN worden de instrukties van het programma 
uitgevoerd , te beginnen bij de laagste regel. De 
APPLE-11 1 leest 1 dus het programma draaiboek punt voor 
punt door en voert uit , wat er van hem wordt verlangd. 
Het uitvoeren van een programma noemt men ook wel 
programma - 1 executie '. Dit nogal griezelige woord 
duikt vaak in vakliteratuur op . 

In de hierna volgende hoofdstukken zal met de afkorting 
imm 1 en 1 def 1 worden aangegeven in welke 1 mode ' er 
commando 1 s mogen worden gegeven. 

We geven een zo bondig mogeiijk overzicht van de vele 
commando ' s voor de APPLE-II Personal Computers. 





HOOFDSTUK 4 ENKELE OVERZICHTEN 


1 . Commando samenvatting 


commando uitspraak 


ABS 


MID$ 


ASC 


NEW 


ATN 


NEXT 


CALL 

: kol 

NORMAL 


CHR$ 


NOTRACE 

: noo-trees 

CLEAR 

: klier 

ON. .GOTO 


COLOR 


ON. .GOSUB 


CONT 


ONERR. .GOTO 


COS 


PDL 


CTRL-C 

: kontrool 

PEEK 

: piek 

CTRL-X 


PLOT 


DATA 


POKE 

: pook 

DEF FN 


POP 


DEL 


POS 


DIM 


PRINT 


DRAW. .AT 

: drow et 

PR** 


END 


READ 

: ried 

ESCAPE A.B.C.D 

: eskeep 

RECALL 

: riekol 

EXP 

REM 


FLASH 

: flesj 

REPT 


FOR. .TO. .STEP. . 

RESTORE 

: ris-toor 

FRE 


RESUME 

: riesjoehm 

GET 


RETURN 


GOSUB 


RIGHTS 

: raajt 

GOTO 


RND 


GR 


ROT 


HCOLOR 


RUN 


HGR 

: haai-greffiks 

SAVE 

: seef 

HGR2 

SCALE 

: skeel 

HIMEM 

: haai-mem 

SCRN 


HLIN. .AT 


SGN 


HOME 

: hoom 

SHLOAD 


HPLOT 


SIN 


HTAB 


SPC 


IF. .THEN 


SPEED 

: spied 

INPUT 


SQR 


INT 


STOP 


INVERSE 

: invurz 

STORE 

: stohr 

IN & 


STRS 


LEFTS 


TAB 


LEN 


TAN 


LET 


TEXT 


LIST 


TRACE 


LOAD 

: lood 

USR 


LOG 


VAL 



LOMEM 
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Alfabetisch overzicht gereserveerde woorden 


Token 

Reserved 

Word 

Token 

Reserved 

Word 

Token 

Reserved 

Word 

128 

END 

164 

LOMEM: 

200 

+ 

129 

FOR 

165 

ONERR 

201 

- 

130 

NEXT 

166 

RESUME 

202 

« 

131 

DATA 

167 

RECALL 

203 

/ 

132 

INPUT 

168 

STORE 

204 

A 

133 

DEL 

169 

SPEED= 

205 

AND 

134 

DIM 

170 

LET 

206 

OR 

135 

READ 

171 

GOTO 

207 

> 

136 

GR 

172 

RUN 

208 

= 

137 

TEXT 

173 

IF 

209 

< 

138 

PR# 

174 

RESTORE 

210 

SGN 

139 

IN# 

175 

& 

211 

INT 

140 

CALL 

176 

GOSUB 

212 

ABS 

141 

PLOT 

177 

RETURN 

213 

USR 

142 

HLIN 

178 

REM 

214 

FRE 

143 

VLIN 

179 

STOP 

215 

SCRN( 

144 

HGR2 

180 

ON 

216 

PDL 

145 

HGR 

181 

WAIT 

217 

POS 

146 

HCOLOR= 

182 

LOAD 

218 

SQR 

147 

HPLOT 

183 

SAVE 

219 

RND 

148 

DRAW 

184 

DEF 

220 

LOG 

149 

XDRAW 

185 

POKE 

221 

EXP 

150 

HTAB 

186 

PRINT 

222 

COS 

151 

HOME 

187 

CONT 

223 

SIN 

152 

ROT = 

188 

LIST 

224 

TAN 

153 

SCALE= 

189 

CLEAR 

225 

ATN 

154 

SHLOAD 

190 

GET 

226 

PEEK 

155 

TRACE 

191 

NEW 

227 

LEN 

156 

NOTRACE 

192 

TAB( 

228 

STR$ 

157 

NORMAL 

193 

TO 

229 

VAL 

158 

INVERSE 

194 

FN 

230 

ASC 

159 

FLASH 

195 

SPC( 

231 

CHR$ 

150 

COLOR = 

196 

THEN 

232 

LEFTS 

161 

POP 

197 

AT 

233 

RIGHTS 

162 

VTAB 

198 

NOT 

234 

MIDS 

163 

HIMEM: 

199 

STEP 
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2. lets over Integer BASIC 


Zoals in de geheugenmap van APPLESOFT is te zien ,is er 
een tweede BASIC interpreter in de APPLE - II aanwezig. 
Bit is een integer BASIC - Interpreter. Constanten en 
waarden van variabelen in integer BASIC moeten gehele 
getallen zijn en liggen tussen de waarden - 32767 en + 
32767. 

Vanuit Monitor kan Integer BASIC worden opgestart door 

RESET , C081 , RETURN , CTRL-B , RETURN 

Voor systemen die uitgerust zijn met een Autostart ROM 
moet je i.p.v RESET , CALL - 1b1 intypen. 

Het ' prompt 1 karakter van Integer BASIC is>. 

Er zijn behalve het getalsysteem een aantal verschillen 
tussen APPLESOFT en INTEGER BASIC : 

De volgende commando 1 s bestaan niet in Integer BASIC 


ATN 


CHRS 

COS 

DATA 

EXP 

DEF FN 

FLASH 

GET 

FN 

HCOLOR 

HGR 

INT 

INVERSE 

LEFTS 

MI D$ 
NORMAL 

LG 

ON.GOSUB 

POS 

ON.GOTO 

READ 

RECALL 

SCALE 

SHLOAD 

STOP 

STR$ 

TAN 

USR 

VAL 

WAIT 

XDRAW 

STORE 


DRAW 

FRE 

HGR2 HIMEM: 

LOMEM: 

ONERR.GOTO 

RESTORE RESUME 
SIN SPC 


HOME HPLOT 


RIGHTS ROT 
SPEED SQR 


4 
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De volgende commando 1 s komen in Integer BASIC voor , 
maar niet in APPLESOFT : 


AUTO rnum [,step J 

Nummert BASIC regels automatisch vanaf rnum. 

A1 s step niet gedefinieerd is , is de stapgrootte 10 
anders / step /. 


DSP var 


Monitor funktie. 

Elke keer , als var van waarde verandert , wordt 
gedisplayed : var = nieuwe waarde. 

RUN reset de DSP funktie , zodat het alleen maar zin 
heeft de DSP als ' DEFERRED 1 commando te gebruiken. 


MAN 


Zet de AUTO regelnummering af. 


MOD 


Rest na deling. Modulus. 12 MOD 5=2 

De volgende commando ' s hebben verschi1iende namen in 
beide BASIC versies : 


INTEGER BASIC 


APPLESOFT 


CLR 

CON 

TAB 

GOTO X*10+100 
GOSUB X 100+100 
CALL -936 
POKE 50,127 
POKE 50,255 
X 
41 


CLEAR 

CONT 

HTAB ( APPLESOFT HEEFT OOK TAB ) 

ON X GOTO 100,110,120 
ON X GOSUB 1000,1100,1200 
HOME of CALL -936 
INVERSE 
NORMAL 

X% ( % geeft integer variabele aan ) 
< > of X 
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Andere verschillen 


Bij Integer BASIC wordt de juistheid van statements bij 
het invoeren gecontroleerd ; bij APPLESOFT pas bij het 
executeren. 

GOTO en GOSUB moeten in APPLESOFI gevolgd worden door een 
rege1nummer , bij Integer BASIC mag dat ook een expressie 
zi jn. 


In APPLESOFT zijn alleen de eerste twee karakters van een 
naam significant , bij Integer BASIC a 11e karakters van 
een naam. 


Bij Integer BASIC moeten zowel array 1 s als strinqs 
geDIMensioneerd worden , bij APPLESOFT alleen array ' s. 
Array ' s in Integer BASIC mogen maar een dimensie 
hebben, in APPLESOFT verschi11ende . 


Array elementen worden in APPLESOFT 0 gemaakt door RUN 
CLEAR en RESET , CTRL - B , RETURN. Bij Integer BASIC 
moet de gebruiker array elementen zelf 0 maken 
In APPLESOFT mogen POKE ' s , PEEKS en CALL ' s adressen 
groter dan 32767 voorkomen. In Integer BASIC moet zo 'n 
adres aangeroepen worden met de ' two ' s complement 1 
negatieve waarde. 


END in een programma , dat in de hoogst voorkomende regel 
stopt , is met verplicht in APPLESOFT , wel in Integer 


NEXT moet (!) bij Integer BASIC gevolgd worden door een 
naam van een variabele , in APPLESOFT hoeft geen naam 
voor te komen. 


Bij Integer BASIC wordt bij het INPUT statement een ? 
afgedrukt , als een arithmetische waarde wordt verwacht , 
ongeacht het feit of in het INPUT statement een 
tekststring was gedefinieerd . 

Het vraagteken wordt niet afgedrukt , als een 
stringconstante wordt verwacht. 

Bij de APPLESOFT INPUT wordt het vraagteken afgedrukt als 
geen tekststring was gespecificeerd , maar weggelaten als 
dat wel het geval was. 

In APPLESOFT wordt de optionele string afgesloten met ;. 
Bij Integer BASIC met ,. 
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Foutmeldingen van Integer BASIC 
EQUIVALENT 

XXX SYNTAX ERROR 
XXX TOO LONG ERROR 
XXX 32767 ERR 
XXX 255 ERR 
STOPPED AT YYYY 
XXX BAD BRANCH ERR 
STATEMENT 

XXX BAD RETURN ERR 
GOSUB 

XXX BAD NEXT ERR 
ERROR 

XXX 16 GOSUBS ERROR 
ERROR 

XXX 16 FORS ERR 
L RRO R 

XXX NO END ERROR 
XXX MEM FULL 
ERROR 

XXX DIM ERR 
t RROR 

XXX RANGE ERR 
ERROR 

XXX STR OVFL ERROR 
XXX STRING ERR 
RETYPE LINE 



APPLESOFT 

7SYNTAX ERROR 
7STRING IOO LONG 
70VERFL0W ERROR 
7 I LLEGAL QUANTITY 

7UNDEF ' D 

ERROR 

7RETURN WITHOUT 
7NEXT WITHOUI FOR 
TOUT OF MEMORY 
TOUT OF MEMORY 

70UT OF MEMORY 

7REDIM 1 D ARRAY 

7BAD SUBSCRIPT 

7STRING 100 LONG 
7SYNTAX ERROR 
7REENIER 
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3. ASCII - codes 


ASCII Character Codes 


ASCII 

Code 

Display Screen 
Character 

Keystroke 

ASCII 

Code 

Display Screen 
Character 

Keystroke 

0 


Ctrl- @ 

48 

0 

0 

1 


Ctrl-A 

49 

1 

1 

2 


Ctrl-B 

50 

2 

2 

3 


Ctrl-C 

51 

3 

3 

4 


Ctrl-D 

52 

4 

4 

5 


Ctrl-E 

53 

5 

5 

6 


Ctrl-F 

54 

6 

6 

7 

(bell) 

Ctrl-G 

55 

7 

7 

8 

(backspace) 

Ctrl-H or-— 

56 

8 

8 

9 


Ctrl-1 

57 

9 

9 

10 

(linefeed) 

Ctrl-J 

58 



11 


Ctrl-K 

59 

; 


12 


Ctrl-L 

60 

< 

< 

13 

(carriage return) 

Ctrl-M 

61 

= 

= 

14 


Ctrl-N 

62 

> 

> 

15 


Ctrl-0 

63 

? 

? 

16 


Ctrl-P 

64 

@ 

@ 

17 


Ctrl-Q 

65 

A 

A 

18 


Ctrl-R 

66 

B 

B 

19 


Ctrl-S 

67 

C 

C 

20 


Ctrl-T 

68 

D 

D 

21 

(forward space) 

Ctrl-U or —► 

69 

E 

E 

22 


Ctrl-V 

70 

F 

F 

23 


Ctrl-W 

71 

G 

G 

24 

(cancel line) 

Ctrl-X 

72 

H 

H 

25 


Ctrl-Y 

73 

1 

1 

26 


Ctrl-Z 

74 

J 

J 

27 


Esc 

75 

K 

K 

28 


n.a. 

76 

L 

L 

29 


Ctrl-Shift-M 

77 

M 

M 

30 


Ctrl- a 

78 

N 

N 

31 


n.a. 

79 

0 

0 

32 

space 

space bar 

80 

P 

P 

33 

I 

! 

81 

Q 

Q 

34 

" 

" 

82 

R 

R 

35 

# 

# 

83 

S 

S 

36 

$ 

$ 

84 

T 

T 

37 

% 

% 

85 

U 

U 

38 

& 

& 

86 

V 

V 

39 

* 

' 

87 

w 

w 

40 

< 

( 

88 

X 

X 

41 

) 

) 

89 

Y 

Y 

42 

* 

* 

90 

z 

z 

43 

+ 

+ 

91 

[ 

n.a. 

44 


, 

92 

\ 

n.a. 

45 

- 

- 

93 

] 

Shift-M 

46 



94 

A 

A 

47 

/ 

/ 

95 


n.a. 

n.a. = 

not available on the Apple II keyboard. 




ASCII codes van 96 tot 255 genereren karakters , die een 
duplikaat zijn van de hiervoor vermelde. 

Ofschoon CHR$(65) en CHR$(193) beide een A teruggeven , 
herkent APPLE - II de beide karakters niet als hetzelfde 
karakter ! ! ! 
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******************* * * * * 


* APPLE-II FLOATI MG * 

* POINT ROUTINES * 

* * 

* COPYRIGHT 1977 BY * 

* APPLE COMPUTER INC. * 

* * 

* ALL RIGHTS RESERVED * 

* * 

* S. WOZNIAK * 





A 

TITLE 

“FLOATING POINT 

ROUTINES" 




4 . 

SIGN 

EPZ 

$F3 






X2 

EPZ 

$F4 






M2 

EPZ 

$F5 






XI 

F P Z 

$F8 






Ml 

EPZ 

$ F9 






r 

EPZ 

SFC 






OVLOC 

EOU 

S3F5 







ORG 

$ F 4 2 5 


F425: 

18 



ADD 

CLC 


CLEAR CARRY. 

F4 26 s 

A 2 

02 



I.DX 

#62 

INDFX FOR 3-BYTF ADD. 

F4 28 * 

B5 

F9 


ADU1 

LDA 

N1, X 


F42A- 

75 

F5 



ADC 

M 2, X 

ADC A BYTE OF MANT2 TO MANTl. 

F42C 

95 

F9 



STA 

M1 , X 


F42E 

CA 




DKY 


INDFX TO NEXT MORE SICNIF. BYTE. 

F42F 

10 

F7 



BPL 

ADD1 

LOOP UNTIL DONE. 

F431 

60 




RTS 


RETURN 

F432 

06 

F3 


MCI 

ASL 

SIGN 

CLEAR LSB OF SIGN. 

F434 

20 

37 

F 4 


JSR 

A PS.'A P 

APS VAL OF Ml, THFN SWAP WITH M2 

F437 

24 

F9 


ABSw'AP 

BIT 

Ml 

MANTl NEGATIVE? 

F 4 39 

10 

05 



L PL 

A133 WA Pi 

NO, S' 'A P WITH MANT2 AMD RETURN. 

F433 

20 

A 4 

F 4 


JSR 

FCCwPL 

YES, COMPLEMENT IT. 

F4 3E 

F6 

F3 



INC 

SIGN 

INC'- SIGN, COMPLEMENTING LSP. 

F440 

38 



ADS#:A PI 

SEC 


SET CARRY FOP RETURN TO MUL/DIV. 

F 4 41. 

A2 

04 


swap 

LDX 

#$4 

INDEX FOR 4-HYTF SWAP. 

F4 4 3 

94 

FB 


SWA PI 

STY 

F -1 , X 


F445 

B5 

F7 



LDA 

Xl-1 ,X 

SWAP A 3YTF OF EXP/MANT1 WITH 

F 4 4 7 

34 

F 3 



LDY 

X2-1,X 

EXP/MAMT2 AND LEAVE A COPY OF 

F4 4 9 

94 

F7 



STY 

X1-1,X 

"ANTI IN E (3 BYTES). F+3 USED 

F44B 

95 

F3 



STA 

X 2-1, X 


F4 4D 

CA 




DFX 


ADVANCE INDEX TO NEXT BYTE. 

F44E 

DO 

F3 



RMp 

S WAPl 

LOOP U ,,: TIL DONE. 

F450 

60 




RTS 


RETURN 

F451 

A9 

8E 


FLOAT 

LDA 

ftSTE 

INIT IXP1 TO 14, 

F453 

85 

F6 



STA 

XI 

THEN NORMALIZE TO FLOAT. 

F455 

A5 

F9 


►JQI-’Ml 

LDA 

Ml 

HIGH-ORDER MANTl BYTE. 

F457 

C9 

CO 



C.’P 

#SC0 

UPPER TWO PITS UNEOUAL? 

r 4 59 

30 

OC 



?M I 

PTS 1 

YES, RETUPN KITH '"ANTI NORMALIZED 

F453 

C6 

F 8 



DEC 

XI 

DECREMENT EXPi. 

F45D 

06 

FF 



ASL 

' ’ 1 + 2 


F4 5F 

26 

FA 



por. 

“1 + 1 

SHIFT MAWT1 (3 BYTES) LFFT. 

F461 

26 

F9 



RCL 

Ml 


F463 

A5 

F8 


NORM 

LDA 

XI 

EXPl ZERO? 

F465 

DO 

EE 



BNE 

NORM 1 

NO, CONTINUE NORMALIZING. 

F467: 60 



RTS 1 

PTS 


RETURN. 

F4 6 8: 

: 20 

A4 

F 4 

FSUR 

JSR 

FCOI'PL 

CMPL MANTl,CLFAPS CARRY UNLESS 0 

F4 60: 

: 20 

7B 

F' 

SWPALGN 

JSR 

ALGNSWP 

RIGHT SHIFT MANTl OR SWAP WITH 

F46E: 

: A5 

F 4 


FACL' 

LDA 

X 2 


F470: 

: C5 

F8 



CMP 

X 1 

COMPARE FX Pi WITH EXP2. 

F472! 

! DO 

F7 



BN E 

SWPALGN 

IF #,SWAP ADDENDS OP ALIGN MANTS. 

F474 : 

: 20 

25 

F 4 


JSR 

ADD 

ADC ALIGNED MANTISSAS. 

F477: 

50 

EA 


ADDEND 

3VC 

NORM 

NO OVERFLOW, NORMALIZF RESULT. 

F4 79: 

: , 70 

05 



BVS 

RTLOG 

OV: SHIFT Ml PIGHT, CARRY INTO SIGF 

F47B: 

: 90 

C4 


ALGMS-a'P 

BCC 

SNA P 

SWAP IF CARRy CLEAR, 





* 

ELSE 

SHIFT RIG 

HT ARITH. 

F47D: 

: A5 

F9 


RTAP 

LDB 

Ml 

SIGN OF MANTl INTO CARRY FOP 

F 4 7 F : 

: OA 




ASL 

A 

RIGHT ARITH SHIFT. 

F 4 8 0 ; 

: E6 

F8 


RTLOG 

INC 

XI 

INCP <1 TO ADJUST FOR RIGHT SHIFT 

F482 

: FO 

75 



PEC 

OVFL 

FX Pi OUT OF RANGF. 

F 4 8 4 : 

: A2 

FA 


RTLOGl 

LDX 

# $ F A 

INDEV FOR 6:BYTE PIGHT SHIFT. 

F486: 76 

FF 


ROPI 

ROR 

E + 3 , X 


F488 

E8 




I NX 


NEXT BYTE OF SHIFT. 

F489 

DO 

F3 



BNE 

R OR 1 

LOOP UNTIL DONE. 

F48B 

60 




RTS 


FETUPN. 

F48C 

20 

32 

F 4 

FOUL 

JSR 

MD1 

AP.S VAL OF MANTl, MANT2. 

F48F 

65 

F8 



ADC 

XI 

ADC FX PI TO EXR2 FOP PRODUCT EXP 

F491 

20 

E2 

F 4 


JSR 

vn2 

CHECK PROD. EXP AND PREP. FOR MUL 

F494 

18 




CLC 


CLEAR CA°FY FOR FIRST BIT. 

F495 

20 

84 

F4 

•111M 

JSR 

RTLOGl 

Ml AND E RIGHT (PROD AND MPLIEP) 

F498 

90 

03 



3CC 

f‘UL2 

IF CARRY CLF.AP, SKIP PARTIAL PROD 

F4 9 A 

20 

25 

F4 


JSR 

ADD 

ADC MULTIPLICAND TO PRODUCT. 

F49D 

88 



NUL2 

DFY 


NEXT MUI. ITERATION. 

F49E: 10 

F5 



PPL 

MUL1 

LOOP UNTIL DONF. 
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F4A0: 

46 

F3 


NiDFNO 

LSR 

SIGN 

F4A2: 

90 

EF 


NOF4X 

PCC 

NORM 

F4A4: 

38 



FCOMPL 

SEC 


F4A5: 

A2 

03 



LDX 

t$3 

F4A7: 

A9 

00 


COM PLl 

LDA 

#$0 

F4A9 

F5 

F8 



SBC 

XI,X 

F4AB: 

95 

F8 



STA 

XI ,x 

F4AD: 

CA 




OEX 


F4AE 

DO 

F7 



BNE 

COMPL1 

F 4 B 0: 

F0 

C5 



BEQ 

addend 

F4B2: 

20 

32 

F 4 

FD IV 

JSR 

MDl 

F4B5: 

E5 

F8 



SDC 

XI 

F4P7: 

20 

E2 

F4 


JSR 

MD2 

F 4 BA J 

38 



DIVl 

sec 


F4BB: 

A2 

02 



LDX 

4$2 

F4BD: 

B5 

F5 


PIV2 

LDA 

N2,X 

F43F: F5 

FC 



SBC 

E f X 

F4C1 

48 




PH A 


F4C 2 

CA 




DEX 


F4C3 

10 

F8 



BPL 

DIV2 

F4C5 

A2 

FD 



LDX 

#SFD 

F4C7 

68 



OIV3 

PL A 


F4C8 

90 

02 



BCC 

DIV4 

F4CA 

95 

F8 



STA 

M2+3,X 

F4CC 

E8 



DIV4 

INX 


F4CD 

DO 

F8 



BNE 

DIV3 

F4CF 

26 

FB 



ROL 

Ml + 2 

E4D1: 26 

FA 



ROL 

Ml + 1 

F4D3 

26 

F9 



ROL 

Ml 

F4D5: 06 

F7 



ASL 

M2+2 

F4D7: 26 

F6 



ROL 

V.2+1 

F4D9 

26 

F5 



ROL 

M2 

F4DB 

B0 

1C 



PCS 

OVFL 

F4DD 

88 




DEY 


F4DE 

DO 

DA 



BNE 

DIVl 

F4E0 

F0 

BE 



BEO 

MDFND 

F4E2 

86 

FB 


MD2 

STX 

Ml+ 2 

F4E4 

86 

FA 



STX 

Yl + 1 

F4E6 

86 

F9 



STX 

Ml 

F4E8: BO 

0D 



BCS 

OVCIiK 

F4EA i 

: 30 

04 



BMI 

MD3 

F4EC: 

: 68 




PLA 


F4ED: 

: 68 




PLA 


F4EE 

: 90 

B2 



BCC 

NOR MX 

F4F0 

: 49 

80 


MD3 

EOR 

#$bo 

F4F2: 85 

F8 



STA 

XI 

F4F4 

: A0 

17 



LOY 

*$17 

F4F6 

: 60 




PTS 


F4F7: 10 

F7 


OVCHK 

BPL 

:iD3 

F4F9: 

: 4C 

F5 

03 

OVFL 

jy.p 

OVLOC 






OPG 

$Fo 3D 

F63D: 20 

7D 

F 4 

FI XI 

JSR 

RTAR 

F640 

A5 

F8 


FIX 

LDA 

XI 

F642 

10 

13 



BPL 

UMDFL 

F644 

C9 

8E 



CMP 

f $85 

F646 

DO 

F5 



CNF 

FI X l 

F648 

24 

F9 



BIT 

Ml 

F64A 

10 

0A 



PPL 

FIXPTS 

F64C 

A5 

FB 



LDA 

Vi 1 + 2 

F64E 

F0 

0b 



BFO 

FIXRTS 

F650 

E6 

FA 



INC 

Ml + 1 

F652 

DO 

02 



BNE 

FIXRTS 

F654 

E6 

F9 



INC 

Ml 

F656 

60 



FIXRTS 

PTS 


F657 

A9 

0 0 


UUDFL 

LDA 

#$0 

F6 59 

85 

F9 



STA 

Ml 

F6 5B 

85 

FA 



STA 

M I + 1 

F65D 

60 




RTS 



TEST SIGN LSS. 

IF EVEN,NORMALIZE PROD,ELSE COMP 
SET CARRY FOP SUBTRACT. 

INDEX FOR 3-BYTE SUBTRACT. 

CLEAR A. 

SUBTRACT PYTE OF EXPl. 

RESTORE IT. 

ME XT MORE SIGNIFICANT BYTE. 

LOOP UNTIL DONE. 

NORMALIZE (OR SHIFT RT IF OVFL). 
TAKE ABS VAL OF MANTl, MANT2. 
SUBTRACT EXPl FROM EXP2. 

SAVE AS QUOTIENT EXP. 

SET CARRY FOR SUBTRACT. 

INDEX FOR 3-PYTF SUBTRACTION. 

SUBTRACT A BYTE OF E FROM WANT2. 
SAVE ON STACK. 

NEXT MORF SIGNIFICANT BYTE. 

LOOP UNTIL t)ONE. 

INDEX FOP 3-FYTE CONDITIONAL MOVE 
PULL BYTF OF DIFFERENCE OFF STACK 
IF M2<E THEN DON’T RESTORE M2. 

NEXT LESS SIGNIFICANT R YTE. 

LOOP UNTIL (DONE. 

ROLL QUOTIENT LEFT,CARRY INTO LSP 


SHIFT DIVIDEND LEFT. 

OVFL IS DUE TO UNNORMED DIVISOR 
NEXT DIVIDE ITERATION. 

LOOP UNTIL DONE 23 ITERATIONS. 
NORM. QUOTIENT AND CORRECT SIGN. 

CLEAR MANTl (3 BYTFS) FOR MUL/DIV. 

IF CALC. SET CARRY,CHECK FOP. OVFL 
IF NFG THEN MQ UNDERFLOW. 

POP ONE RETURN LEVEL. 

CLFAR XI AND RETURN. 

COMPLEMENT SIGN BIT OF EXPONENT. 
STORE IT. 

COUNT 24 *’UL/23 OIV ITERATIONS 
RETURN. 

IF POSITIVE EXF THEN NO OVFL. 
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HOOFDSTUK 5 DE BESCHIKBARE COMMANDO'S 


1. Systeem commando's 

LOAD imm & def 
SAVE imm & def 


load 

save 


Deze commando's laden een programma van de cassetteband 
in het geheugen of schrijven een programma naar de 
cassette. Je moet de cassetterecorder aan hebben ( weer- 
gave of opname ) als deze commando's gegeven worden. 

LOAD en SAVE controleren niet of de cassetterecorder aan 
staat , of wel aanwezig is. Beide commando's laten een 
signaaltje horen aan het begin en het einde van hun 
werking. 

De cursor verdwijnt van het scherm , als een van deze 
commando's aktief is en verschijnt weer als de LOAD , of 
SAVE klaar is. 

Uitvoering van het programma wordt gestopt na een LOAD 
commando. 

Bij een SAVE wordt het programma voortgezet na het 
wegschrijven van de gegevens. 

Zie ook het hardware-gedeelte van dit boek (interfacing). 
Alleen een RESET kan een LOAD of SAVE onderbreken. 


NEW imm & def 


new 


Dit commando verwijdert programma's en variabelen uit het 
geheugen ! ( In feite worden ze ontoeganke 1 ijk ). 

RUN imm & def 


run rnum 


Dit commando zet alle variabelen op 0 en begint de 
uitvoering van het regelnummer , dat eventueel 
gespecificeerd is. Als geen regelnummer is opgegeven , 
wordt begonnen met de regel met het laagste regelnummer. 
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A1 s dit commando in'def'mode met een regelnummer wordt 
gebruikt en het regelnummer bestaat niet, of is negatief, 
dan wordt de foutmelding : 

?UNDEF 1 D STATEMENT ERROR 

gegeven. 

Als het regelnummer groter is dan 63999 , dan verschijnt: 

?SYNTAX ERROR 
op het scherm. 

De regel , waar de fout optrad , wordt niet vermeld. 

In de immediate mode worden de foutmeldingen echter : 

?UNDEF 1 D STATEMENT ERROR IN XXXX 

en 


7SYNTAX ERROR IN XXXX 
Waar XXXX een regelnummer aangeeft. 


STOP imm & def 
stop 


STOP stopt programma - executie en geeft de controle over 
het systeem aan je terug. 

De melding : 

BREAK IN XXX 

vertelt dat , XXX het regelnummer is , waarin het STOP 
commando voorkwam. 


END imm & def 

end 

Dit programma stopt de programma - executie , en geeft 
het toetsenbord aan je terug. 



CONT imm & def 


cont 


Als de uitvoering van een programma is afgebroken met een 
END , met een STOP , of met CTRL - C kan programma - 
executie weer voortgezet worden met een CONTinue 

Het programma wordt dan hervat bij de volgende 
instruktie, niet altijd bij het volgende regelnummer. 

Als er geen onderbroken programma is , heeft CONT geen 
effekt. Variabelen worden niet op 0 gezet. 

Als een INPUT instruktie is onderbroken met een CTRL - C, 
resulteert een CONT commando in : 

?SYNTAX ERROR IN XXXX 

waar XXXX het regelnummer is , waar het INPUT statement 
voorkomt. 

Een CONT resulteert in de foutmelding : 

?CAN'T CONTINUE ERROR 

wanneer na de onderbreking van het programma : 

1. Een programmaregel wordt gewijzigd , of verwijderd. 

2. Een commando wordt uitgevoerd , dat resulteert in een 
foutmelding. 

Programmavariabelen mogen gewijzigd worden door het 
gebruik van immediate instrukties. Er mag dan echter geen 
foutmelding optreden. 

TRACE imm & def 


trace 


TRACE brengt een zoekprogramma op gang , waarbij elk 
regelnummer wordt afgedrukt op het moment , dat aan de 
uitvoering ervan wordt begonnen. 

Als het programma ook PRINT statements bevat , is het 
mogelijk , dat TRACE deze informatie op het scherm 
overschrijft. Vooral bij het zoeken naar fouten is TRACE 
nuttig. 

De foutzoek-werking noemt men 'DEBUG - mode '. 


NOTRACE imm & def 


notrace 


Reset de TRACE mode. 

Is noodzakelijk na TRACE. 
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PtEK imm & def 


peek ( aexpr ) 


Deze instruktie geeft ( DECIMAAL ) de inhoud van 
geheugenplaats / aexpr /. 

In hoofdstuk 5 zijn verschi1lende voorbeelden van het 
gebruik van PEEK opgenomen. 


POKE imm & def 


poke aexprl , aexpr2 


Dit commando schrijft op geheugenlokatie aangegeven door 
/ aexprl / het binaire equivalent van / aexpr2 /. 

De waarde van aexprl moet liggen tussen -65535 en 65535 , 
terwijl / aexpr2 / moet liggen tussen 0 en 255. Anders 
wordt de foutmelding : 

?ILLEGAL QUANTITY ERROR 

afgedrukt. 

Dit commando heeft natuurlijk alleen effekt , als het 
gespecificeerde adres in het systeem aanwezig is ( RAM , 
output ). 

In het algemeen betekent dit , dat / aexprl / niet groter 
mag zijn dan'memtop Memtop is de hoogste 
geheugenlokatie , die in het systeem voorkomt. Bij een 
16K systeem is dat 16384 , bij een 32K systeem 32768 en 
bij een 48K systeem 49125. 

Een poging om een PROM - lokatie te beschrijven heeft 
natuurlijk nimmer effect. Een aantal geheugenadressen 
bevat belangrijke informatie , om het systeem correct te 
laten functioneren. Een willekeurige POKE in deze 
lokaties kan later problemen veroorzaken. 


WAIT imm & def 


wait aexprl , aexpr2 ,aexpr3. 


WAIT geeft je de mogelijkheid , om een konditionele pauze 
in een programma in te lassen. Alleen een RESET kan een 
WAIT voortijdig afbreken. 

/ aexprl / is de geheugenlokatie , waarop de test wordt 
uitgevoerd. 

Voor de waarde van aexprl geldt hetzelfde als bij aexprl 
van het POKE commando. / aexprl / en / aexpr2 / moeten 
liggen tussen 0 en 255. 
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Als alleen aexprl en aexpr2 zijn gespecificeerd , wordt 
elk bit van de aexprl gespecificeerde geheugenlokatie 
geAND met het binaire equivalent van aexpr2. Als dit 
resultaat 0 geeft , wordt de test opnieuw uitgevoerd. Als 
de test een resultaat ongelijk 0 oplevert , dan wordt het 
programma voortgezet. 

Als aexpr2 en aexpr3 beide zijn gegeven , wordt eerst elk 
bit van de lokatie / aexprl / ge-EXCLUSIVE ORed met het 
binaire equivalent van aexpr3 en vervolgens wordt het 
resultaat geAND met / aexpr2 /. Een en ander heeft tot 
gevolg , dat een test wordt uitgevoerd op in / aexpr2 / 
gespecificeerde bits. Is een betreffend bit niet 1 in 
/aexpr3 / , dan wordt de test herhaald , tot een van deze 
bits 1 wordt. Komen in / aexpr2 / en / aexpr3 / bits voor 
die beide 1 zijn , dan wordt de test herhaald tot een van 
deze bits laag wordt. 


WAIT is zeer geschikt om een programma te synchroniseren 
met een I/O - device. 

Het biedt de mogelijkheid te synchroniseren op HOOG - 
LAAG en op LAAG - HOOG overgangen. 


Voorbeelden : 


WAIT aexprl,255,0 


WAIT aexprl,255 
WAIT aexprl,255,255 


WAIT aexprl ,1,1 
WAIT aexprl ,3,2 


betekent dat gewacht wordt tot 
tenminste een bit van de lokatie 
/ aexprl / 1 is. 
idem 

Pauze tot minstens 1 van de 8 
bits van het geheugen ( of I/O ) 
lokatie 0 is. 

wacht tot het minstsignificante 
bit 0 is , ongeacht de andere bits 
wacht tot het minstsignificante 
bit 1 is , of het volgende bit 0 
is , of beide. 


CALL imm & def 
call aexpr 

Start executie van een machinetaal subroutine , die 
begint op adres / aexpr /. 


HIMEM imm & def 


himem:aexpr 

Deze instruktie zet het hoogste voor BASIC programma's 
beschikbare adres op / aexpr /. 
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Het wordt gebruikt om , een geheugengebied waar gegevens, 
grafische informatie , of machinetaal programma's staan 
te beschermen. 

Normaal wordt HIMEM automatisch ingesteld op het hoogste 
in het systeem beschikbare RAM adres. Dit gebeurt bij het 
opstarten van APPLESOFT ( RESET , CTRL - B , RETURN ). 

De waarde van HIMEM staat op de geheugenplaatsen 115 en 
116 ( decimaa1 ). 

Om dit zichtbaar te maken , gebruik : 

PRINT PEEK(116)*256+PEEK(115) 

Als HIMEM wordt gezet op een adres lager dan LOMEM , of 
er is niet meer voldoende geheugenruimte voor BASIC 
programma's aanwezig , dan wordt de volgende foutmelding 
gegeven : 

?0UT OF MEMORY ERROR 

HIMEM wordt gereset door RESET , CTRL - B , RETURN. 


LOMEM imm & def 


1omem :aexpr 


Set de laagst beschikbare geheugenp 1 aats , die 
beschikbaar is voor BASIC. Normaal wordt LOMEM 
automatisch geinitial iseerd vlak voor executie van een 
programma. LOMEM krijgt dan een waarde gelijk aan het 
einde van het programma. 

Als LOMEM een grotere waarde krijgt dan HIMEM , 
verschijnt : 

?0UT OF MEMORY ERROR 

Ook als LOMEM lager wordt gemaakt , dan de hoogste 
geheugenlokatie , die door het systeem in gebruik is 
(2051 ) , wordt deze foutmelding gegeven. 

LOMEM wordt gereset door NEW , DEL , of door verandering 
en toevoeging van regels aan een programma. 

LOMEM wordt ook gereset door RESET , CTRL - B , return. 

Als LOMEM hoger is , dan de hoogste geheugenplaats van 
het systeem en van lopende BASIC programma's , wordt de 
waarde niet gewijzigd door RUN. 

De waarde LOMEM staat op de geheugenplaatsen 105 en 106. 

Als LOMEM gewijzigd wordt kan dit alleen maar een waarde 
zijn , die groter is dan de oude waarde. 

?0UT OF MEMORY ERROR 

wordt gegeven als hieraan niet is voldaan. 

Het wijzigen van LOMEM tijdens de program - executie kan 
ertoe leiden , dat het programma niet meer korrekt wordt 
voortgezet. 
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USR imm & def 


usr (aexpr) 


Met deze routine kan een parameter worden doorgegeven 
naar een machinetaal subroutine. 

De waarde van aexpr wordt geplaatst in de floating 
accumulator ( lokatie $9D tot $A3 ) en er wordt een JSR 
000A uitgevoerd. 

De gebruiker moet er dus voor zorgen , dat op die plaats 
een JMP naar een machinetaal programma staat ( lokatie 
000A tot 000C hex ). 

Een door de subroutine terug te geven waarde moet 
geplaats worden in de floating accumulator. 

Om een 2-byte integer te verkrijgen van / aexpr / in de 
floating accumulator , moet in de subroutine een JSR E10C 
uitgevoerd worden. 

De integer waarde wordt geplaatst in de adressen AO ( 
meest significante byte ) en A1 ( minst significante byte) 


Om een integer te converteren naar zijn floating point 
equivalent , zodat de subroutine de waarde aan het BASIC 
programma kan teruggeven , moet een JSR E2F2 uitgevoerd 
worden. De integer waarde moet daartoe staan in register 
A ( meest significante byte ) en Y ( minst significante 
byte ). 

De terugkeer naar APPLESOFT vindt plaats door een RTS 
instruktie. 



2. Editing commando 1 s 


LIST imm & def 

list [rnuml] [-rnum2] 
list [rnuml] [,rnum2] 


A1 s rnuml noch rnum2 gegeven is , wordt het gehele 
programma gelist. 

Als rnuml aanwezig is , of rnuml is gelijk aan rnum2 , 
dan wordt alleen het betreffende regelnummer afgedrukt. 

Als rnuml vooraf wordt gegaan door een - of , wordt het 
programma gelist van rnuml tot het einde van het 
programma. 

Als een , of - aanwezig is evenals rnum2 , worden de 
regels vanaf het begin van het programma tot rnum2 
afgedrukt. 

Zijn zowel rnuml als rnum2 gegeven , dan wordt gelist 
vanaf rnuml tot rnum2. 

Als meer dan een regel moet worden gelist en het 
gespecificeerde rnuml is niet in het programma aanwezig , 
dan wordt gelist vanaf de regel met het eerste 
regelnummer groter dan rnuml. 

Als meer dan een regel gelist moet worden en rnum2 komt 
niet voor in het programma , dan wordt gelist tot en met 
de regel met het eerste regelnummer kleiner dan rnum2. De 
geliste regels zien er meestal anders uit , dan ze zijn 
i ngevoerd. 

Niet significante spaties worden verwijdert , andere 
spaties worden toegevoegd. 

Het listen van een programma kan worden onderbroken met 
een CTRL-C , RESET of CTRL-S. In het laatste geval kan 
verder gelist worden door opnieuw CTRL-S te typen. 


DEL imm & def 


del rnum1 ,rnum2 


Dit commando verwijdert de gegeven regelnummers uit het 
programma. Het commando kan slechts in deze vorm , dus 
met beide regelnummers gespecificeerd , worden ingevoerd. 
Bij ontbreken van een der regelnummers zal een 7SYNTAX 
ERROR worden gegeven. 

Een enkele regel kan verwijderd worden door voor rnuml en 
rnum2 dezelfde regel te spec ificeren. Eenvoudiger is het 
echter in dat geval het regelnummer in te typen gevolgd 
door RETURN. 

Als DEL in een programma is opgenomen , wordt het 
commando uitgevoerd en de executie stopt. Het is dan niet 
meer mogelijk met CUNT het programma voort te zetten. 
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REM imm & def 


rem. karakter. 


REM dient om het mogelijk te maken opmerkingen ( REMarks ) 
in een programma op te nemen. Achter REM mogen alle 
karakters , inclusief BASIC commando's worden opgenomen. 
Een REM wordt afgesloten door return. REM statements 
worden niet uitgevoerd. 

De computer zal achter REM 1 spatie toevoegen , ongeacht 
het aantal spaties dat daar al stond. 


VTAB imm & def 


vtab aexpr 


Bij uitvoering van dit commando zal de cursor gaan naar 
regel / aexpr /. De bovenste regel van het scherm is 
regel 1 , de onderste regel 24. VTAB regelt de vertikale 
tabulatie. 

Wordt een andere waarde gespecificeerd , dan tussen 1 en 
24 volgt op het scherm : 

?I LLEGAL QUANTITY ERROR 


HTAB imm & def 


htab aexpr 


HTAB verplaatst de cursor naar positie / aexpr / van de 
regel , waar de cursor momenteel staat. / aexpr / moet 
liggen tussen 0 en 255 , anders wordt de foutmelding : 

? I LLEGAL QUANTITY ERROR 

gegeven. 

Het is dus mogelijk de cursor meer dan 1 regel te 
verp1aatsen. 

De regel waar de cursor staat heeft posities 1 t/m 40 , 
de volgende 41 t/m 80 enz. 

HTAB 0 zet de cursor op positie 256. 
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TAB imm & def 


tab (aexpr) 


TAB kan alleen in PRINT statements worden gebruikt en 
aexpr moet tussen haakjes staan. 

TAB verplaatst de cursor alleen dan , als de linker 
zijkant van het tekstvenster plus / aexpr / een positie 
geeft , die rechts van de huidige cursorpositie ligt. 
TAB verplaatst de cursor nooit naar links ( gebruik 
hiervoor HTAB ). 

Als TAB ertoe leidt , dat de cursor over de 

rechterzijkant van het tekstvenster gaat , wordt er aan 

de linkerkant van de volgende regel verdergegaan. 

Voor de grenzen van / aexpr / geldt hetzelfde als voor 
HTAB. 


POS imm & def 


pos (expr) 


Geeft de aanwezige cursorpositie in verhouding tot de 
linker marge van het tekstvenster. 

Expr speelt geen rol in dit commando , maar moet wel een 
geldige waarde , naam van variabele , of expressie zijn. 

De linkermarge heeft positie 0. 

Merk op , dat bij HTAB en TAB de positie op het scherm 
genummerd zijn vanaf 1 terwijl POS nummert vanaf 0. 


SPC imm & def 
spc (aexpr) 


SPC kan alleen in een PRINT statement gebruikt worden. 
Geeft / aexpr / spaties vanaf het laatst afgedrukte 
karakter , of vanaf de linker marge van net tekstvenster. 

SPC(0 ) geeft geen spaties. 

/ aexpr / moet liggen tussen 0 en 255 , maar 

verschi1lenae bPC commando's mogen na elkaar gebruikt 

worden om grotere spatiering te krijgen. 

Als aexpr een 'real' is , wordt hij geconverteerd naar 
integer. 
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HOME imm & def 


home 


Geen parameters. 

Dit commando verplaatst de cursor naar de bovenste , 
meest linkse positie van het tekstvenster. A11e tekst 
verdwijnt van het scherm. 

Dit commando is identiek aan ESC , Shift - P , return , 
of CALL -936. 


CLEAR imm & def 


clear 


Geen parameters. 

Maakt alle variabelen , arrays en strings nul. 
Pointers en stacks worden gereset. 


FRE imm & def 


fre (expr) 


FRE geeft een waarde terug gelijk aan het aantal bytes 
dat nog beschikbaar is in het geheugen. Als dit getal 
groter is dan 32767 , zal een negatief getal worden 
gegeven. Door hier 65536 bij op te tellen , verkrijgt men 
de werkelijke waarde. Als HIMEM op een waarde is gezet , 
die groter is dan de maximale geheugencapaciteit van de 
computer , kan FRE een niet zinvolle waarde teruggeven. 

Als de inhoud van strings tijdens de programma - executie 
verandert , wordt de oude string niet verwijderd. Er 
wordt voor de nieuwe string een nieuwe file geopend. 
Bijvoorbeeld als A$ de waarde "SALARIS" had en gelijk 
wordt gemaakt aan "GEBOORTEDATUM" , wordt de string 
"SALARIS" niet uit het geheugen verwijderd. APPLESOFT zal 
automatisch 1 opruiming houden'als de vrije ruimte opraakt. 

Maar dit kan te laat komen , omdat machinetaal 
programma's , of graphic buffers dan al overschreven 
kunnen zijn. 

Deze 'opruiming' kan eerder worden uitgevoerd door een 
FRE commando. 

De expr tussen haakjes heeft geen betekenis , maar moet 
een geldige expressie of waarde zijn. 
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FLASH imm & def 


flash 


Dit commando is een zgn. video output commando. 

Het heeft alleen effekt bij karakters , die op de 
beeldbuis te zien zijn. 

Werkt dus NIET tijdens het intypen van karakters en op 
karakters , die al op het scherm aanwezig waren. 

FLASH heeft tot gevolg , dat de tekst knippert op het 
scherm : zwart op een witte en vervolgens wit op een 
zwarte achtergrond. 


INVERSE imm & def 


inverse 


Dezelfde overwegingen als bij FLASH. 

Output karakters worden echter zwart gedisplayed op een 
witte achtergrond. 


NORMAL imm & def 


norma 1 


NORMAL zet de output mode weer normaal : wit op zwarte 
ondergrond. 

SPEED imm & def 


speed = aexpr 


SPEED bepaalt de snelheid , waarmee karakters naar het 
beeldscherm , of naar een ander device worden gezonden. 

De laagste snelheid is 0 , de hoogste 255. 

Waarden buiten deze range veroorzaken een 

?ILLEGAL QUANTITY ERROR 
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3. Over array's en strings 


Tot zover heb je kennis gemaakt met de gewone variabele , 
om gegevens achter te verbergen ( weet je nog : A = 10 ). 

Een veel uitgebreidere , maar afwijkende mogelijkheid 
daartoe bood de string ( A1 $ = C$ + "M00I WEER" ). 

Er is nog een derde mogelijkheid voor het opslaan van 
gegevens en nu voor rijen getallen : de array ( spreek 
uit :'erreeh'). Dat kan van belang zijn voor een 
bedrijfsinventarisatie , het weergeven van sportuits 1agen 
en statistieken . 

De naam van de array is elke legale naam voor een 
variabele. 

Een uitstekend voorbeeld is A. Om nu het juiste element 
uit een datalijst ( een lijst met getallen ) te kiezen , 
geven we A een'wijzer 1 , of subscript. Het geweldige 
schuilt hem in het feit , dat het subscript enkel beperkt 
wordt door de geheugengrootte van je APPLE-II. Je kunt de 
array danook enorm dimensioneren , een geweldige grootte 
geven. Zo van DIM A(400). Hetgeen voor de APPLE-II 
inhoudt , dat er een array komt van A (0) tot en met 
A (400). 

In het geheugen houdt hij daar heel handig ruimte voor 
vri j. 

En na de A zijn er nog 25 letters in het alfabet. 

Probeer het volgende programma te doorgronden aan de hand 
van dit handboek : 

10 DIM A(5) 

20 FOR L = 1 TO 5 
30 READ A(L ) 

40 NEXT L 

50 DATA 10,20,30,40,50 
60 FOR N = 1 to 5 
70 PRINT N,A(N) 

80 NEXT 

Let op de FOR. . . NEXT lus , of 'loop' ( spreek uit : 
loep ) en de combinatie READ ( = lees ). ... DATA ( 

= gegevens ). 

Nu is het bovendien mogelijk complexe rijen getallen te 
verwerken , dus 2 of meer kolommen. Zo'n geheel van 
getallen noemen we een'matrix'en ons oefenprogramma is 
daarvan eigenlijk al een eenvoudig voorbeeld. 

De matrix is 2 horizontale en 5 vertikale dimensies groot 
: hij is 2 op 5. Je kunt die ingewikkelde dimensies 
vooraf aan de APPLE-II opgeven , omdat APPLESOFT er 
anders van uitgaat , dat het maximale subscript 

(de'index 1 , volgens wiskundigen ) 10 is. per 

dimensie. En nu wilde je net een matrix invoeren met 88 
dimensies !! Eh , dat is overigens het maximum , bij 89 
dimensies volgt een : 

?0UT OF MEMORY ERROR 
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Een voorbeeld van zo'n brede dimensionering is : 

100 BOEKEN (5,5,2) 

Array elementen worden middels het RUN statement , of d. 
m. v. CLEAR op 0 gesteld. Dat is van belang voor het 
(later ? ) doorzien van de READ. . . . DATA kombinatie. 


Samenvattend kun je zeggen , dat de array naast de string 
en de gewone variabele een geweldig hulpmiddel is voor de 
snelle verwerking van cijfermatige data ; dat hij vooraf 
gedimensioneerd moet worden in 1 of meer dimensies 
(matrix ) , doch dat de geheugengrootte de grens van zijn 
moge1ijkheden vormt. 


DIM imm & def 


dim var(subscr), { var(subscr) ) . 


Het DIM statement reserveert geheugenplaatsen voor arrays 
met de naam var. 

Twee bytes worden gereserveerd voor de naam , twee voor 
de grootte in bytes , een byte voor de dimensie en twee 
voor elke dimensie. 

Subscript lopen van 0 tot en met / subscr /. 

Dus DIM DEM0(4,5,3) reserveert 5x6x4=120 
geheugenplaatsen. 

Het maximale aantal dimensies van een array is 88. Een 
grotere dimensie geeft : 

?0UT OF MEMORY ERROR 

Als een array element gebruikt wordt voordat de 
DI Mensionering van het array heeft p1aatsgevonden , dan 
reserveert APPLESOFT 10 plaatsen per dimensie voor die 
array. Het gebruik van een arrayvariabele met een 
subscript groter dan / subscr / , of met meer dimensies , 
dan gedefinieerd , geeft dan 

?BAD SUBSCRIPT ERROR 

Wordt het DIM statement gebruikt voor een array , 
waarvoor al een DIM statement was gebruikt , of die door 
het systeem is gedefinieerd , dan verschijnt de melding : 

TREDIM'D ARRAY ERROR 

De afzonderlijke strings in een string array worden niet 
gedimensioneerd. Een string mag maximaal 255 karakters 
bevatten. 

Array elementen worden op 0 gesteld door een RUN of een 
CLEAR commando. 
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LEN imm & def 


len(sexpr) 


Deze funktie geeft een waarde , die gelijk is aan het 
aantal karakters van / sexpr 7. Als dat een concatenatie 
( optelling ) is van strings , waarvan het aantal 
karakters samen groter is dan 255 , dan volgt een 

?T00 LONG ERROR 


STR$ imm & def 


str$(aexpr) 


Deze funktie converteert / aexpr / naar een string , die 
/ aexpr / representeert. 

Als / aexpr / groter is , dan de waarde toegestaan voor 
reals , wordt de foutmelding : 

70VERFL0W ERROR 

gegeven. 


VAL imm & def 


va 1 ( sexpr ) 


Deze funktie doet precies het omgekeerde van STR$. 

VAL tracht de / sexpr / te interpreteren als een real , 
of als een integer. 

Het eerste karakter van de string (afgezien van spaties) 
moet een toegestaan karakter zijn , om een real of 
integer te vormen ( 0 t/m 9 + -. E spatie ) , anders 
wordt een 0 teruggegeven. 

Elk volgend karakter wordt op dezelfde manier beoordeeld, 
tot een karakter voorkomt , dat niet aan de gestelde eis 
vo ldoet. 

Vanaf dat punt worden verdere karakters genegeerd. 

Als sexpr een stringconcatenatie is met meer dan 255 
karakters , dan wordt de foutmelding 

7STRING TOO LONG ERROR 

gegeven. 

Als de absolute waarde van het verkregen getal groter is 
dan 10*38 , of het getal heeft meer dan 38 karakters , 
inclusief voorafgaande nullen , dan wordt gedisplayed : 

70VERFL0W ERROR 


5-15 



CHR$ imm & def 


chr$(aexpr) 


Deze funktie geeft een ASCII karakter , waarvan de waarde 
overeenkomt met / aexpr /. 

/ aexpr / moet liggen tussen 0 en 255 , anders wordt de 
foutme1d i ng 

? I LLEGAL QUANTITY ERROR 
geprint. 

Reals worden geconverteerd naar integers. 


ASC imm & def 


asc(sexpr) 


Omgekeerde funktie van CHR$. 

Geeft de ASCII waarde van het eerste karakter van 
/sexpr /. 

Op de APPLE-11 zijn de ASCII codes van 96 tot 255 
duplicaten van 0 tot 95. 

Dus CHR$(65) geeft een A , maar ook CHR$(193) geeft een 

A. 

In het ene geval zal de ASC funktie 65 teruggeven , in 
het andere geval 193. 

Als sexpr een stringconstante is , dan moet deze tussen 
" " - tekens staan en mogen er geen " " in de string 
voorkomen. Als de string nul is geeft dat de foutmelding: 


/ILLEGAL QUANTITY ERROR 
ASC("CTRL- ") geeft een 
/SYNTAX ERROR 

LEFTS imm & def 


left$(sexpr,aexpr ) 


Geeft de eerste / aexpr / karakters van / sexpr /. 

Als aexpr een real is , wordt hij geconverteerd naar een 
integer. 

Een 

/ILLEGAL QUANTITY ERROR 

wordt gegeven , als / aexpr / kleiner is dan 1 of groter 
dan 255. 
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Als / aexpr / groter is dan LEN (sexpr) , wordt de gehele 
string teruggegeven. 

Als $ in het commando wordt vergeten , beschouwt 
APPLESOFT LEFT als een rekenkundige variabele en wordt de 
foutmelding 

?TYPE MISMATCH ERROR 

gegeven. 


RIGHTS imm & def 


right$(sexpr,aexpr) 


De / aexpr / meest rechtse karakters van / sexpr / worden 
teruggegeven. 

Verder gelden dezelfde overwegingen als bij LEFTS. 


MID$ imm & def 


mid$(sexpr .aexprl f,aexpr2ij ) 


MID$ met alleen aexprl geeft de stringexpressie vanaf 
karakter / aexprl / , tot het eind van de string. 

MIDS met zowel aexprl als aexpr2 geeft de string terug 
vanaf karakter / aexprl / met een lengte van / aexpr2 / 
Ksr’flKtGf's 

Als / aexprl / groter is dan LEN(sexpr) dan wordt de nul 
string teruggegeven. 

Als / aexprl / + / aexpr2 / groter is dan de lengte van 
de / sexpr / , wordt de gehele string teruggegeven. 

Voor de omvang van de expressie geldt hetzelfde als bij 
LEFTS en RIGHTS. 


STORE imm & def 


store avar 

Dit commando schrijft een array met de naam 1 avar 1 naar 
de cassetteband , zonder de naam. 
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RECALL imm & def 


recall avar 


Dit commando laadt de array ' avar ' met de waarden vanaf 
de cassetteband. 

De dimensies van de array , die met een STORE is 
weggeschreven , moeten identiek zijn aan die , waarmee ze 
met een RECALL worden geladen. 

In het algemeen zal een RECALL naar een array met minder 
elementen dan het aantal elementen op de cassette een : 

?0UT OF MEMORY ERROR 

geven. 

Heeft het 1 RECALL array ' meer elementen dan op band 
staan , dan zal 

ERR 

verschijnen , rnaar de programma-executie gaat gewoon 
door. 

Alleen integer en real arrays mogen weggeschreven worden. 

Stringarrays moeten met de ASC functie geconverteerd 
worden. 

Hoewel bij STORE en RECALL alleen de naam van de array 
wordt gegeven en geen subscripts , zal alleen het array 
met die naam worden weggeschreven en niet een variabele 
met dezelfde naam. 

Zowel bij STORE als RECALL klinkt aan het begin en einde 
van de opname een 1 biep 1 uit de luidspreker. 

Als wordt geprobeerd een STORE of RECALL te doen met een 
array , die nog niet gedimensioneerd is , dan verschijnt 
de foutmelding : 

?0UT OF MEMORY ERROR 

STORE en RECALL kunnen alleen onderbroken worden door 
RESET. 
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4. Input - Output commando 


s 


Een vooraf ingesteld programma is natuurlijk wel leuk. 
Vooral om de loop van het programma te bestuderen. 

Het verveelt echter snel en bovendien zijn veel in te 
voeren gegevens afhankelijk van verschi1lende 
omstandigheden. 

Wat kopen we ervoor , wanneer we de APPLE-II zo 
programmeren , dat er elke keer een uitgebreide tabel met 
gegevens ontstaat , wanneer we maar behoefte hebben aan 1 
specifieke waarde ? 

Kortom , je wilt met de APPLE-II kunnen communiceren. 

Tja , daar is hij volgens ons voor ; hij is zeker geen 
oliedom rekenmachientje ! Een beslissend statement in het 
communicatieproces is INPUT. 

Op het moment , dat je APPLE-II dit statement tegenkomt , 
stopt hij de programma - executie en wacht hij , tot je 
het gewenste'gegeven hebt ingevoerd. 

Input wil zeggen : invoer , of ' voer wat in 
Hier hebben we een aardig oefenprogramma , dat 
willekeurige scores bij een sport tot een totaal uitslag 
verwerkt. 

Probeer aan de hand van dit handboek de werking van het 
programma te analyseren : 

1 0 PRINT "SPORT UITSLAGEN/WEDSTRIJDSCORE" 

20 PRINT 

30 PRINT "(AAN EINDE PROGRAMMA TYPE 0 )" 

40 PRINT 

45 PRINT "AANTAL DEELNEMERS”; 

5 0 INPUT N 

6 0 IF N=0 THEN 27 0 : REM 27 0 IS END 

7 0 DIM A$ (50) : REM BEPERKING ARRAY DEELNEMERS 

8 0 FOR 1= 1 TO N 

90 PRINT”DEELNEMER ”;l; 

100 INPUT A$(l) 

110 NEXT I 

12 0 FOR 1= 1 TO N 

130 FOR J= 1 TO N-1 : REM ALFABETISEERLUS 
140 A$=A$(J) 

15 0 B$=A$(J+1) 

160 IF A$ > B$ THEN 190 
170 A$(J)=B$ 

18 0 A$(J+1)= A$ 

190 NEXT J 
200 NEXT I 
210 PRINT 

22 0 FOR 1=1 TO N : REM OUTPUTLOOP 
230 PRINT A$(l) 

24 0 NEXT I 
250 PRINT 

260 GOTO 40 : REM TERUGKEER NR BEGIN 
27 0 END 
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Hoe gebruik je dit programme ?, obnemmpo duqduO - .duqnt 
Voer in , wanneer de APPLE-II het INPUT - vraagteken met 
cursor laat zien : 


fuel 


■if 

\& P 
vxz c 


.ilouuden ai emmeopooq blsdaspni deooov ne3 


r? 9 d sd emmeogooq der) nev qool 9b mo IboooV 
sv Ajjs n9ibn9vod ns Isna oeddos disevosv T9H 
Wm i riD2"tev n£v i l 9 Xn 6 ridB ansvegep 0909ov 
, . nsb9jip,i bnetamo 

De uit s1 a g qq / n s -W#fr v^rd^P van, deW 

*9lb. is 0dsojiu 0 9 9 099)1 SXi =L \9. d 6 b , 0909iJ)iT(60p 0 0 q 

- - - -. 

cfan regel 160 : 


WVefM a*d n^ r ^f#T B 9 g 

? 9 bo66w sX9idi09qa 
II-3JPPA 9b J9m Jliw 91, t modooX 

eiT 

bqmaarhyKgj ]93 ,! 9 [.d n 9 i rt 0 6mn 9 3 90 m 0 b 9 i 1 0 


ano ansplov girl 2 i oeeb 


V^ee 1 genoe'gen me : t dit programma^!^ ; 1 2 j zsoooqs i dso 1 nummoo 
, dmoXn9p9d Jnem9d 6 da dib II-BJRPA eg deb , dnsmom dsrl qO 
9 g dod t gift dd 06 w ns 9 iduo 9 X 9 - BmmBogooq 9b gid dqoda 

.boecvspni ddsrt 09 V 9 g 9 p ' sdanswep dsrl 
. 1 ni dew osov ' do , 090vni : neppss liw duqnl 
dsb , 6mm6opooqn9dso piboee 099 9 W 09 dd 9 ri osiH 
peiadxu leedod 099 dod dooqa 099 gid 390002 egiousXsiliw 

. d >i 0 9 W 0 9 v 

d 9 rt nev pn i Xosw 9b Xsodboed dib nev bneri 9 b nee 099 dooP 

: 0909 a'{i 6 n 6 9 d Bflim&opooq 


■'3fl003atlflT3a3W\H30AJ3TiU TR0R3" TUSRR 0 f 

THIHR OS 

■'(6 3RYT AMMAROORR 30HI3 !/IAA)" TRiRR 86 

TWRR 8t> 

'8R3M3HJ33Q JATRAA" TRIRR 9A 

R TURRI 8 6 

0H3 31 Ots M3R : OTS R3HT 8 - R 3! 89 

3R3M3RJ33G YARRA 0RIXH3H38 M3R : (09) $A Mia 0\ 

R OT t =1 ROR 88 
;l," R3M3RJ330"TRIRR 86 
(l)$A TURHI 88 r 

i txsr s rr 
n ot r =i rot esr 

3UJR333IT38ARJA M3R : i-H OT i l ROT 861 

(l)8A.----3A OAf 
(r+t)$A $8 ear 
oer H 3 HT $a < $a ri ear 
ea=(t)3A ou 
$a =(C+L)3A ear 
i TX3M eer 

I TX3R 08 S 

trirr ers 

ROOJTURTUO M3R : R OT r I R03 OSS 
(l)$A TRIRR 06S 
I TX3R 8 AS 
TRIRR e as 

RI038 RR R33X0UR3T M3R : SA OTOD 0 9S 

QR3 OTS 
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INPUT def 


input [string;] var [,var] 


Als de string wordt weggelaten , wordt een vraagteken op 
het scherm gedisplayed en gewacht tot je een getal , of 
een string hebt ingevoerd. 

Als de string wel is gespecificeerd , wordt hij zonder 
extra spatiering exact als aangegeven afgedrukt. Het 
vraagteken wordt dan niet afgedrukt. 

Er mag slechts een string gebruikt worden en deze MOET 
afgesloten zijn met 

INPUT accepteert alleen reals , integers en strings , 
geen expressies. 

Als hieraan niet voldaan wordt , zal meestal de 
foutmelding 

REENTER 

worden gegeven , waarna de waarde opnieuw kan worden 
ingevoerd. 

Als var een stringvariabele is , dan kan een literal , of 
een string worden ingevoerd. Als een literal wordt 
ingevoerd , mag het eerste niet - spatie karakter geen " 
zijn. Is dat wel het geval , dan worden de ingevoerde 
karakters als string beschouwd. Er mogen dan geen " in de 
string voorkomen , maar de string moet wel afgesloten 
worden met een ". Als een literal wordt ingevoerd mogen 
binnen de literal wel " - tekens voorkomen. 

CTRL - X en CTRL - M binnen een ingevoerde string zijn 
niet toegestaan. 

Als het systeem een arithmetische waarde verwacht en 
RETURN wordt direkt ingedrukt dan krijg je 

7REENTER 

Als een string wordt verwacht en de RETURN toets wordt 
meteen bediend , dan wordt de invoer als nul string 
beschouwd. 

Als verschi1lende variabelen in het INPUT statement 
worden gespecificeerd , moet de bijbehorende waarden in 
de juiste volgorde worden ingevoerd. 

Ze kunnen worden gescheiden door komma 1 s , of door 
RETURNS 1 s. In het laatste geval zal , zolang niet alle 
invoer is gegeven , 

?? 

op het scherm verschijnen. 

Stringvariabe1en en arithmetische variabelen mogen 
gemengd in een INPUT statement voorkomen , maar de juiste 
waarden moeten in de juiste volgorde worden ingevoerd. 

Als-een : wordt ingevoerd in een INPUT response die niet 
met ? begon , dan worden alle daarna ingetikte karakters 
genegeerd , ook de komma 1 s. Er kan dan alleen een 
nieuwe response cyclus worden geforceerd door een RETURN. 
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Worden meer waarden ingevoerd , dan er variabelen 
gespecificeerd in het INPUT statement , volgt de melding: 


?EXTRA IGNORED 


f o a v , ] o a v [jgnioda] duqni 


™ ^ ?|'o ^ 5 %x ^ z a,I ;i ^,n j oda sb a IA 

J9(1 
099 


S T%en i 6 ^pe^ 9 , 9 i s jmg^TlbkVel 1 9 »%1 

n INPUT - Response , dan wordt d^^g^s^o^^^a Is, ]Q ; jaf 


Als 

een __ _ 

nul jiftS • r. x rl dbriow', biesoj T x.oeqaeg ai lew Dnioda 9b. a IA 

CTRL -^Hka.rtrxfi^eb^^eWf^Wiqg, j%$| 4^x9 

bij de eerste responsec^ 9 i 5 n| 9 |^e^ n ft% b d fbSSft L n^SdTWabv 

een ^Wp:9j©,99ie'¥!) Q ( , 6 < 3/®iuTdsg pnioda nee add 09 la p am i3 

Een poging het programma daarna'met een jQ^NJ,aepta 

zetterj ^Qggjni , ai 690 n 99 lla dis 9 dq 903 s TUSMI 

. 29i aaeoqxe 099g 

.SYNTAX 9 |R^^ 299fn { 6S t j-btow neablov d 9 in naaoeirl alA 

r 11 nnr , , . . ^ on ibj9mduoT 

INPUT kan , zoals hiervoor is aangegeven , met in de 

immediate mode worden gebruikt. Een poging hier^e^e^ft: 




em66w t n9V9p9p neboow 
.. bT90v9gn i 

To « I6i9dil nee 0 6>1 nab , ai 9l9dBioevgnioda 099 oav alA 
dboow laoeJil ns9 alA .boeovepni nsboow goioda nee 
GET 9i%,%g '■f9j>(606>l 9iTaqa - Join 9d2T99 J9d gem , bo90V9gni 
9bo90V9gni eb 09boow nab , laveg J 91 I l9w dab ai .ngis 
eb oi " n 99 g 06b nagom o3 .bwuoiioa9d gnioda ala ao9d>lB'Ta>l 
99i%dM?9gTe lew deom goioda sb oeam , nemohcov gnioda 
nsgom bi90V9gni dboow Iao9diI 099 a IA 099 dsm neb-tow 
. namojl'toov ao9>i9d - " lew l6T9di I eb nsnnid 
Deze nfruinklgi^^jqcftftt^^t.^ejn r^raJtit^r. d v^n .he^ykje^kp^rcL jqjj 
( = toetsenbord ) , zonder het weer te gevei) 16 %nf -j- 9in 
dat de n ^etip-r/bvMM%offcPftlAiri%^ WP r r4& n in 9 9 d a y a d9ri alA 
CTRL , Shift - PsR.e^1f^0irfbulr>MiWfeW<tJl9irib dboow HflUT3fl 
CTRL - H of de<- toets geeft 00 k een nul karakter. 

CTRL - C wordt behandeld als elk ander karakter^jfn^jjc 
programma executie wordt niet afgebroken. 

Als cS,e 1 *jfcfcJoeifelfliiiiTd&g%b*9>»eioMv dtiWd ei l.!n i i n fd , > e ^9 9 alA 

algemeeir.nalfHen ^ 2 qy W j«!n$wW puttie n Sftbftifcy&t n 99 j 9m 

omdat andere karakters foutme 1 dingen kunnen verobi^Mftzsd 

of ze g%Yi^e$% jvfaqirjdifi jO dfcfliryig. nsIsdai 0 av sbnsl 11 iToaosv alA 
We riad^n-,; aa^ ,- 0, %bYi% p : a l$j Sctringviariabele . te geb : .rujikie ; n f19 bnow 

,bo90v9gni neboow sbooglov 9daiug sb 
ooob To t a ' ammol 000 b 09 bi 9 rloa 9 g n9boow 09nnu>l eS 
sfla dein pnalos , las Iav9g 9d-adeal dsrl nl .a 1 2M3UT33 

< n 9 v 9 g 9 g ai neovni 


T V 


. nen t i doai9v mosdoa d9ii qo 
n9gom o9l9daioev 9rt>aid9mddna 09 nelsdaioavpniojS 
9 Ja iug 9 b naam , n9mo>looov dnemedada TU3MI n99 ni bgnemeg 
.bT90V9gni n9biow sboogiov 93aiur 9b ox 09dsom 09boaBw 
dsin 91 b 9 anoqa 90 TU3MI 099 ni boeovepox dboow : 099 - 2 IA 
aoed>iB06>t 9d>lid9poi annaab 9 116 n9boow nab , nog9d T dem 
099 n99ila nab oax o3 .a 1 ammox 9b >ioo , bo99g909g 
.W51UT33 099 000 b bnssoooTsp neboow auioyo 9anoqa90 9wusio 
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DATA def 


data [lit: string: real: integer] [ { , [lit: 

string; real: integer]} . 


Dit statement definieert een lijst van elementen , die 
gebruikt kunnen worden met het READ statement. In 
volgorde van regelnummer voegen DATA statements elementen 
toe aan de lijst , die door eerdere DATA statements is 
gevormd. 

DATA statements hoeven niet perse voor READ statements te 
worden geplaatst , maar mogen overal in het programma 
staan. Voor DATA elementen , die gelezen worden met een 
READ , gelden ( meestal ) dezelfde regels als voor data , 
die worden binnengehaald met het INPUT statement. 

Een : mag echter nooit voorkomen in een DATA element. 

Als CTRL - C een DATA element is , wordt programma 
executie niet gestopt bij een READ van dit element. 

Met alleen deze uitzondering , gelden voor DATA 
stringelementen dezelfde regels als voor de INPUT van 
strings. 

Als de lijst van elementen in een DATA statement ' niet 
bestaande ' elementen bevat , wordt een 0 , of de 
nulstring veronderste1d . 

Dat gebeurt in de volgende gevallen : 

1 ) Er komt geen niet - spatie karakter voor tussen DATA 

en RETURN. 

2 ) De komma is het eerste niet - spatie karakter na DATA 

3 ) Er staat geen niet - spatie karakter tussen twee 

komma ' s 

4 ) Een komma is het laatste niet - spatie karakter 

voor RETURN. 

READ imm & def 



read var 


Als het eerste READ statement in een programma wordt 
uitgevoerd , zal de eerste variabele de eerste waarde 
krijgen uit de tabel van DATA elementen , de tweede 
variabele de tweede waarde enz. 

Als de executie van het READ statement is afgelopen , 
blijft er EEN POINTER staan achter het laatst gelezen 
element van de lijst. Bij een volgende READ wordt dan DE 
VOLGENDE waarde uit de lijst gelezen. 

RUN en RESTORE resetten de DATA pointer naar het eerste 
element van de DATA - tabel. 
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Als geprobeerd wordt meer elementen te lezen , dan er in 
de tabel zijn , wordt de foutmelding : 

?0UT OF DATA ERROR IN XXXX 
afgedrukt. 

XXXX geeft het regelnummer aan , waar het READ statement 
staat , dat de fout veroorzaakte. In de immediate mode 
kunnen er alleen DATA elementen worden gelezen , als er 
in een voorafgaand programma elementen in een DATA lijst 
zijn opgenomen. Deze elementen kunnen gelezen worden , 
ook al heb je dat programma nooit geRUNd. 

Als een programma in immediate mode wordt uitgevoerd , 
wordt de DATA pointer NIET gereset op het eerste element. 


RESTORE imm & def 

restore 


Dit commando zet alleen de DATA pointer terug naar het 
eerste element van de DATA lijst. 


PRINT imm & def 


print 

print 

print 



expr 


[ 


[ I expr N.I ] [ . ; ] 


In plaats van PRINT mag het vraagteken gebruikt worden. 
Het wordt echter wel geLIST als PRINT. 

Met PRINT wordt overgegaan naar een nieuwe regel. 

Als expressies worden gespecificeerd , dan worden de 
waarden hiervan afgedrukt. 

Als er geen ; of , aan het einde van een PRINT statement 
staat , wordt overgegaan naar een nieuwe regel , nadat 
het laatste item is gePRINT. 

Als een item wordt gevolgd door een komma , wordt het 
volgende te printen item afgedrukt op de eerste positie 
van het volgende TAB veld. 

Als een item in de lijst wordt gesloten met ; wordt het 
volgende item uit de lijst afgedrukt achter het vorige , 
maar zonder tussen1iggende spatie. 

Er mogen achter een PRINT karakters en statements 
voorkomen tot maximaal 239 tekens. 
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IN# imm & def 


in# aexpr 


Selecteert output van I / 0 slot / aexpr /. 

Dit statement wordt gebruikt , om aan te geven welk ' 
periferal device ' ( bijv. een disc - drive ) gebruikt 
wordt , om input te leveren bij executie van een INPUT 
statement. 

Gespecificeerd mogen worden slot 0 t / m 7. 

IN#0 betekent dat input van het APPLE keyboard komt. 

Als in een gespecificeerd slot geen device aanwezig is , 
' hangt 1 het systeem. Alleen een RESET ( CTRL - C ) 
herstelt deze toestand. 

Als / aexpr / groter is dan 255 , of kleiner dan 0 
verschijnt de foutmelding : 

? I LLEGAL QUANTITY ERROR. 

Als / aexpr / ligt tussen 8 en 255 , dan kunnen er 
onvoorspelbare dingen gebeuren. 


PR# imm & def 


pr # aexpr 


PR# selecteert een slot voor output van PRINT statements. 
/ aexpr / moet liggen tussen 0 en 7. 

PR#0 selecteert de video - uitgang. 

Verder dezelfde overwegingen als bij IN#. 


LET imm & def 


[let] avar tsubscr] = aexpr 
[let! avar [subscr] - sexpr 


LET wordt gebruikt voor toewijzing van een waarde aan een 
variabele. 

De variabele mag een arithmetische ( = rekenkundige ) , 
of een stringvariabe1e zijn. 

De bijbehorende expressie moet dezelfde soort zijn , 
anders verschijnt : 

?IYPE MISMATCH ERROR 

op het scherm. 

LET mag vrijblijvend worden gebruikt. 
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DEF def 


def FN naam ( real avar ) = aexprl 


Maakt het mogelijk een funktie te definieren in BASIC 
programma ' s. 

Als de funktie eenmaal is gedefinieerd , mag deze zo vaak 
als gewenst worden aangeroepen met FN. 

Voor de naam geldt dezelfde overweging als bij variabelen, 
d. w. z. de eerste twee karakters dienen bepalend te 
zi jn. 

Funkties kunnen opnieuw worden gedefinieerd. 

Als real avar wordt bij definitie een voorlopige waarde 
( = dummy ) meegegeven. Als de funktie later aangeroepen 
wordt , gebeurt dat met een actuele waarde. 


FN imm & def 


fn naam ( aexpr2 ) 


Met FN wordt een funktie aangeroepen , die met DEF is 
gedefinieerd. 

De waarde van aexpr2 wordt op alle plaatsen , waar in 
aexprl ( zie DEF ) real avar voorkomt , ingevuld. Daarna 
wordt aexprl geevalueerd. 

Voorbeeld : 

100 DEF FN DEM0(W)=2*W+W 
110 PRINT FN DEM0(23) 

RUN 

69 

Dit resultaat kwam tot stand , doordat voor de formele 
parameter in regel 110 de waarde 23 werd ingevuld , zodat 
de waarde van de funktie DEMO wordt 2*23+23=69. 

Als een funktie wordt aangeroepen , voordat hij met een 
DEF statement is geDEFinieerd , dan verschijnt de melding: 


VUNDEF'D FUNCTION ERROR 
op het scherm. 

String en integer funkties zijn niet toegestaan. 
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5. Flow control commando 


s 


GOTO imm & def 


goto rnum 


Veroorzaakt een sprong naar het gespecificeerde 
regelnummer. 

Als deze regel niet bestaat veroorzaakt dat een : 

?UNDEF'D STATEMENT ERROR IN XXXX 

waarbij XXXX het regelnummer is van het GOTO statement , 
die de toutmelding veroorzaakt 


IF imm & def 


if expr then instruktie [ { : instruktie } 
if expr then [ goto 3 rnum 
if expr i then ] goto rnum 


Als / expr / ongelijk is aan 0 , wordt de waarde als TRUE 
( = waar ) beschouwd en wordt de instruktie ( of worden 
de instrukties ) achter THEN uitgevoerd. 

Als de waarde van expr 0 is , dan worden de instrukties 
achter THEN genegeerd en wordt de eerstvo1gende regel 
uitgevoerd. 

Als bij toepassing van dit statement in immediate mode de 
waarde van expr 0 is , worden alle volgende statements 
genegeerd. 

Een THEN zonder IF , of een IF zonder THEN zal een 
?SYNTAX ERROR 
veroorzaken. 

In IF statements mag expr geen stringexpressie zijn , 
hoewel daar geen foutmelding op wordt gegeven. 

Komt ' IF THEN 1 meer dan twee keer voor in een 
programmarege1 , dan volgt de foutmelding : 

7F0RMULA TOO COMPLEX ERROR. 

De letter A voor THEN veroorzaakt problemen. 

IF BETA THEN 230 wordt door APPLESOFT geinterpreteerd als 
IF BET AT HEN230 en geeft een ?SYNTAX ERROR. 

De volgende statements zijn identiek : 

IF A=3 THEN 160 

IF A=3 GOTO 160 

IF A=3 THEN GOTO 160 
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FOR imm & def 


tor real avar = aexprl to aexpr2. step aexpr3. 


Real avar wordt gelijk gemaakt aan aexprl en de 
statements , die de FOR statements volgen , worden 
uitgevoerd tot de statement NEXT real avar. Hierbij dient 
de naam van real avar in de FOR en NEXT statement 
dezelfde te zijn. 

Vervolgens wordt real avar verhoogd met / aexpr3 / ( en 
bij afwezigheid van ' STEP aexpr3 1 met 1 ) , pas daarna 
vergeleken met / aexpr2 /. 

Als real avar groter is dan / aexpr2 / , wordt verder 
gegaan met het statement achter NEXT . 

Als dit niet het geval is , dan wordt er terug gesprongen 
naar het statement volgend op het FOR. . . . statement. 

Real avar MOET een real zijn , anders wordt de 
foutmelding 

7SVNTAX ERROR 

gegeven. 

Daar real avar aan het einde van de lus pas verhoogd 
wordt en vergeleken met / aexpr2 / wordt de lus altijd 
tenminste een keer doorlopen. 

FOR. . . . NEXT lussen mogen elkaar niet kruisen. 

Indien dit het geval is wordt de foutmelding 

?NEXT WITHOUT FOR ERROR 

gegenereerd. 

Als meer dan 10 FOR. . . . NEXT lussen in elkaar 
genesteld worden , volgt de foutmelding 

?0UT OF MEMORY ERROR. 

Als het FOR statement in 1 immediate mode ' wordt 
gebruikt , moeten het FOR statement , evenals NEXT in 
dezelde regel voorkomen. 


NEXT imm & def 


next t avar l 

next avar [ { , avar j 1 


NEXT vormt het einde van een FOR. . . . NEXT lus. 

Als avar niet is gespecificeerd , dan wordt ze beschouwd 
te behoren bij de laatst uitgevoerde FOR. . . . 
statement. 

Verschi11ende FOR. . . . lussen kunnen met een enkele 
NEXT worden afgesloten. Wordt avar niet gespecificeerd, 
dan kan een conditionele sprong uit de lus later 
problemen geven, als avar niet op de juiste waarde wordt 
oesteld. 
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GUSUB imm & def 


gosub rnum 


Veroorzaakt een sprong naar een subroutine , die begint 
op regel / rnum /. 

Als een hierbij noodzakelijk RETURN statement wordt 
uitgevoerd , wordt het programma voortgezet bij het 
statement , dat op GOSUB volgt. 

Elke keer wanneer GOSUB wordt uitgevoerd , wordt het 
terugkeerpunt in een afzonderlijke stack geplaatst , 
zodat de terugweg naar het programma weer kan worden 
gevonden. 

Elke keer als een RETURN , of een POP wordt uitgevoerd , 
wordt het laatste adres van de stack verwijderd. Het POP 
statement moet telkens worden gebruikt bij een 
conditionele onderbreking van de GOSUB. 

Als rnum niet in het programma voorkomt , verschijnt de 
melding 

?UNDEF ' D STATEMENT ERROR IN XXXX 

Op de plaats XXXX staat het regelnummer , waar het GOSUB 
statement voorkomt , die de foutmelding veroorzaakt. 

Als er meer dan 25 GOSUB 1 s in elkaar genesteld zijn , 
dan leidt dat tot de 

TOUT OF MEMORY ERROR. 


RETURN imm & def 


return 


Dit is een sprong naar het statement , dat volgt op het 
laatst uitgevoerde GOSUB statement. Als er meer RETURN ' 
s worden opgedragen , dan er GOSUB ' s zijn , resulteert 
dit in 

7RETURN WITHOUT GOSUB ERROR. 

Na de uitvoering van RETURN is het bijbehorende 
terugkeeradres niet langer aanwezig in de stack. 
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POP imm & def 


pop 


POP neeft hetzelfde effect als RETURN met het verschil , 
dat de terugsprong niet wordt uitgevoerd. Het gevolg is , 
dat een volgende RETURN de programma - executie laat 
voortzetten na het voorlaatste uitgevoerde GOSUB. Het 
terugkeeradres van de laatste GOSUB is immers uit de 
stack verwijderd. 

Als er meer POP 1 s worden uitgevoerd dan er GOSUB ' s 
zijn , volgt een 

’RETURN WITHOUT GOSUB ERROR. 


ON def ( GOTO / GOSUB ) 


on aexpr goto rnum ,rnum 
on aexpr gosub rnum , rnum 


Programma - executie wordt voortgezet op het 

gespecificeerde regelnummr met rangnummer / aexpr / in de 

lijst van rege1nummers . 

Als / aexpr / 0 is of groter dan het aantal 

gespecificeerde rnum 1 s , wordt de executie voortgezet 

met het statement volgend op het ON. . . . statement. 

/ aexpr / moet liggen tussen 0 en if55 , om de foutmelding 


? I LLEGAL QUANTITY ERROR 
te vermijden. 


ONERR GOTO def 


onerr goto rnum 


Als er een fout optreedt , kan dit statement voorkomen , 
dat een foutmelding wordt afgedrukt en de programma - 
executie wordt onderbroken. 

Als het commando wordt uitgevoerd , wordt een flag geset, 
die er bij een fout voor zorgt , dat een sprong wordt 
uitgevoerd naar rnum. 

Met behulp van POKE 216,0 moet de flag gereset worden. 

Het ONERR statement moet worden geprogrammeerd , voordat 
een fout kan optreden , anders wordt de foutmelding 
terdege gegeven en het programma onderbroken. 

Als een fout is opgetreden , kan je met PEEK(222) een 
' foutnummer 1 opvragen. 

De code heeft de volgende betekenis : 
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0 NEXT WITHOUT FOR 
16 SYNIAX 

22 RETURN WITHOUT GOSUB 

42 OUT OF DATA 

53 ILLEGAL QUANTITY 
69 OVERFLOW 
77 OUT OF MEMORY 
90 UNDEFINED STATEMENT- 
107 BAD SUBSCRIPT 
120 REDIMENSIONED ARRAY 
133 DIVISION BY ZERO 
163 TYPE MISMATCH 
17b STRING TOO LONG 
191 FORMULA TOO COMPLEX 
224 UNDEFINED FUNCTION 

254 BAD RESPONSE TO INPUT STATEMENT 

255 CTRL - C INTERRUPT ATTEMPTED 

Je moet voorzichtig zijn met errorbehandel ing na fouten , 
die optreden in FOR. . . NEXT lussen , en fouten in 
subroutines. 

Het statement moet de lus hervatten door terug te 
springen naar het FOR , of naar het GOSUB statement. 

Als een programma na een fout wordt voortgezet bij NEXT , 
of RETURN , geeft dat de melding 

?NEXT WITHOUT FOR ERROR of 
7RETURN WITHOUT FOR ERROR 


RESUME def 


resume 


Als dit commando wordt gebruikt aan het einde van een 
errorbehandelingsroutine , wordt het programma voortgezet, 
waar het onderbroken is ten gevolge van een fout en wel 
aan het begin van het statement. 

Als RESUME wordt uitgevoerd , voordat een fout is 
opgetreden , resulteert dat in een 

?SYNTAX ERROR IN 65278 

Meestal zal het programma afgebroken worden. 

Als een fout optreedt in een errorbehandelingsroutine 
waarin RESUME voorkomt , dan zal dit een oneindige lus 
veroorzaken. 

RESET , CTRL - C , RETURN brengt je terug bij het 
programma. 
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6. Spelletjes , of Game control 


PDL imm & def 


pdl ( aexpr ) 


Deze funktie geeft een waarde terug tussen 0 en 255. 

Deze waarde hangt af van de stand van een variabele 
weerstand ( potentiometer ) , die aangesloten wordt op de 
game I / 0 connector ( zie deel ' HARDWARE ' ). 

/ aexpr / geeft aan welke van de vier mogelijke ingangen 
gelezen moet worden. 

Het gebruik van andere waarden , dan 0 t / m 3 kan tot 
gevolg hebben , dat bestaande programma 1 s worden 
gestoord. 

De analoge spanning , die door de potmeter wordt 
aangeboden , wordt door een analoog / digitaal omzetter 
vertaald in een binaire waarde tussen 0 en 255. Deze 
omzetter heeft na een conversie enige tijd nodig zich te 
herstellen. 

Daarom wordt aangeraden tussen twee PDL commando s 
enige programmaregels ( bijvoorbeeld een delayloop als 
T = 1 TO 25 : NEXT ) op te nemen. 

De paddles zijn als accessoires te verkrijgen. 
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HOOFDSTUK 6 INGEBOUWDE FUNKTI EG 


1. Wiskundige funkties 

APPLESOFT bevat een aantal ingebouwde mathematische 
funkties. 

Alle funkties mogen daar worden gebruikt , waar 
expressies van hetzelfde soort ook mogen voorkomen. 

SIN imm & def 

sin (aexpr) 

Deze funktie berekent de sinus van / aexpr / radialen. 
COS imm & def 
cos (aexpr) 

ueze funktie berekent de cosinus van / aexpr / radialen. 
TAN imm & def 
tan (aexpr) 

Deze funktie berekent de tangens van / aexpr / radialen. 
ATN imm & def 
atn (aexpr) 

Deze funktie berekent de arctangens van / aexpr / in 
radia len . 

De teruggegeven waarde ligt tussen -pi/2 en pi/2 
radialen . 
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INT imm & def 


int (aexpr) 


ueze funktie berekent de integer , die kleiner dan , of 
gelijk is aan / aexpr /. 

\ 

RND imm & def 
rnd (aexpr) 


ueze funktie geeft een random getal , dat groter of 
gelijk U is , maar kleiner dan 1. 

A1 s / aexpr / groter is dan 0 , wordt elke keer als RND 
wordt gebruikt een nieuw getal gegenereerd. 

Als / aexpr / kleiner is dan 0 wordt een pseudo random 
reeks geinitialiseerd. 

Met verschi1lende negatieve getallen zal een andere reeks 
worden verkregen. 

De achtergrond hiervan is , dat men vaak wenst , dat 
programma 1 s met random getallen zich a.h.w. 

•reproduceren 1 , d.w.z. dat elke keer als dat programma 
wordt geRUNd dezelfde gemiddelde resultaten ontstaan. 
Vooral bij het zoeken naar fouten kan dit belangrijk 
zi jn. 

Als / aexpr / 0 is , wordt het laatst gegenereerde random 
getal opnieuw gegeven. 


SGN imm & def 
sgn (aexpr) 


SGN geeft -1 als / aexpr / negatief is , 0 als / 
aexpr / 0 is en +1 als / aexpr / positief is. 


ABS imm & def 


abs (aexpr) 


Geeft de absolute waarde van / aexpr /. 
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SQR imm & def 


sqr (aexpr) 

Geeft de positieve wortel van / aexpr /. 

Deze funktie werkt vaak sneller dan / aexpr / A .5 

tXP imm & def 

exp (aexpr) 

Verheft e(2.718289) tot de macht / aexpr /. 

LOG imm & def 
log (aexpr) 

Geeft de natuurlijke logaritme ( grondtal e ) van / aexpr/. 

De volgende , niet ingebouwde funkties , kunnen met 
bestaande funkties eenvoudig worden gedefinieerd , ais 
DEF FN wordt gebruikt. 

SECANS : 

sec(x)=1/cos(x) 

COSECANS : 

esc(x) = 1/sin(x) 

COTANGENS : 

cot(x)=1/tan(x ) 

ARCSINUS : 

asin(x)=atn(x/sqr(-x*x+1 )) 
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ARCCOSINUS : 


acos(x)=-atn(x/sqr(-x*x+1 ) )+1 .5708 
ARCCOSECANS : 

acs(x)=atn(1/sqr(x*x-1))+(sgn(x)-1)*1.5708 
ARCSECANS : 

asc(x)=atn(sqr(x*x-1))+(sgn(x)-1)*1.5708 
ARCCOTANGENS : 

atg(x)=-atn(x)+1.5708 
SINUS HYPERBOLICUS : 

shb(x)=(exp(x)-exp(-x))/2 
COSINUS HYPERBOLICUS : 

chb(x)=(exp(x)+exp(-x))/2 
TANGENS HYPERBOLICUS : 

thb(x)=-exp(-x)/(exp(x)+exp(-x))*2+1 
SECANS HYPERBOLICUS : 

sech(x)=2/(exp(x)+exp(-x)) 

COSECANS HYPERBOLICUS : 

csch(x)=2/(exp(x)-exp(-x)) 
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COTANGENS HYPERBOLICUS : 


coth(x)=exp(-x)/(exp(x))*2+1 
ARCSINUS HYPERBOLICUS : 

asinh(x)=log(x+sqr(x*x+1)) 

ARCCOSINUS HYPERBOLICUS : 

acosh(x)=log(x+sqr(x*x-1)) 

ARCTANGENS HYPERBOLICUS : 

atanh(x)=log((1+x)/(1-x))/2 
ARCSECANS HYPERBOLICUS : 

asech(x) = log((sqr(-x*x+1 ) + 1 )/x 
ARCCOSECANS HYPERBOLICUS : 

acsech(x)=log(sgn(x)*sqr(x*x+1)+1/x 
ARCCOTANGENS HYPERBOLICUS : 

actanh(x) = log((x+1 )/x-1 ))/2 
A MOO B : 

mod(a)=int((a/b-int(a/b))*b+.05)*sgn(a/P) 


6- 5 



2. PEEKS , POKES en CALL 1 S 


HEXADECIMAAL 

COMMANDO 

BESCHRIJVING 

DISPLAY controls 


C050 

POKE-16304,0 

Set grafics mode 

CObl 

POKE-1 6303,0 

Set tekst mode 

C052 

POKE-16302,0 

Reset gemengde tekst-grafics 

C0b3 

POKE-16301,0 

Set gemengde tekst-grafics 

C0b4 

POKE-16300,0 

Display page 1 

C0b5 

POKE-16299,0 

Display page 2 

C056 

POKE-16298,0 

Reset HGR 

C0S7 

POKE-16297,0 

Set HGR 


TEKST 

controls 


0020 

POKE 32,LI 

LI (0 - 39) 

Zet linker marge op 

0021 

POKE 33,W1 

Zet venster breedte op 


W1 (L + W1 p 

40) 

0022 

POKE 34,T1 

T1 ( 0 - 23 ) 

Zet bovenkant venster op 

0023 

POKE 35,B1 

Zet onderkant venster op 


B1 ( 0 - 23 , 

B1 ° T1 

0024 

CH=PEEK(36) 
positie 

Lees horizontale cursor 


POKE 36,CH 

CH ( 0 - 39 ) 

Zet cursorpositie op 

0025 

CV=PEEK(37) 

Lees vertikale cursor positie 


POKE 37,CV 

CV ( 0 - 23 ) 

Zet cursorpositie op 

0032 

POKE 50,127 
00k CALL -384 

Set inverse flag ; 


POKE 50,255 
ook CALL -380 

Set normal flag ; 

FC58 

CALL -936 

Esc , Shift P , Cursor home , 
wis scherm 

FC42 

CALL -958 

ESC-F , wis scherm vanaf 


cursor tot einde van het scherm 

FC9C 

CALL -868 

ESC-E , wis scherm vanaf 

cursor 



tot einde van 

de regel 

FC66 

CALL -922 

CTRL-J , nieuwe regel 

FC70 

CALL -912 

Scroll tekst 1 regel omhoog 


6 
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Diversen 


C030 

X=PEEK(-16336) 
POKE -16336,0 

COOO 

X=PEEK(-16384) 

C010 

POKE -16368,0 

C061 

X=PEEK(-16287) 

C062 

X = PEEK(-16286 ) 

C063 

X = PEEK(-1 6285 ) 

C058 

POKE-16296,0 

C059 

POKE-16295,0 

C05 A 

POKE-16294,0 

C05B 

POKE-16293,0 

C05C 

POKE-16292,0 

C05D 

POKE-16291,0 

C05E 

POKE-16290,0 

C05F 

POKE-16289,0 

C020 

PEEK(-1 6352 ) 

00D8 

PEEK(216 ) 
gezet 

POKE 216,0 

OODE 

X=PEEK(222) 


Enkele puls naar speaker 
idem 

Lees keyboard. Als X ° 127 dan 

is een toets ingedrukt 
Reset keyboard strobe. Altijd 
noodzakelijk na een Lees 
keyboard 

SW 0 van de Game I / 0 
connector Als X ° 127 dan 
switch is aan 
SW 1 van de Game I / 0 
connector 

SW 2 van de Game I / 0 
connector 

Reset Game I / 0 AN 0 output 

Set Game I / 0 AN 0 output 

Reset Game I / 0 AN 1 output 

Set Game I / 0 AN 1 output 

Reset Game I / 0 AN 2 output 

Set Game I / 0 AN 2 output 

Reset Game I / 0 AN 3 output 

Set Game I / 0 AN 3 output 

Geeft puls opcassetterecorder- 
u i tgang 

Lees ERR-flag als ° 127 dan 

Reset ERR-flag 
a geeft errorcode 
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3. Automatische foutmeldingen 


Nadat een fout is opgetreden , geeft APPLESOFT een 
foutmelding door en daarna geeft het je het toetsenbord 
terug. Waarden van variabelen , alsmede de programmatekst 
blijven onveranderd , maar het programma kan niet worden 
geCONtinueerd , terwijl alle GOSUB en FOR counters op 0 
worden gezet. 

Om te voorkomen , dat een lopend programma door een fout 
wordt afgebroken , kan het ONERR statement worden 
gebruikt , samen met een' error handling routine'. 

Ais een fout optreedt in de IMMEDIATE mode , wordt geen 
regelnummer gegeven. 

IMMEDIATE executie ?XXX ERROR 

DEFERRED executie ?XXX ERROR IN YYYY 

In beide voorbeelden is XXX de specifieke foutmelding en 
YYYY het regelnummer , waar de fout is opgetreden. 

In' deferred mode' worden fouten vastgesteld , wanneer 
het programma wordt uitgevoerd. 

Niet bij invoeren van programmatekst. 

De foutmeldingen , die op kunnen treden zijn : 

CAN ' T CONTINUE 

Treedt op na een poging een programma te continueren , 
dat niet bestaat , of nadat een fout is opgetreden , of 
nadat in een afgebroken programma een of meer regels zijn 
gewijzigd of verwijderd. 

DIVISION BY ZERO 

Delen door 0 is niet toegestaan. 

ILLEGAL DIRECT 

INPUT , DEF , GET en DATA mogen niet a 1s 1 immediate' 
executie commando worden gebruikt. 

ILLEGAL qUANTITY 

De parameter meegegeven aan een mathematische , of string 

funktie was buiten de toegestane grootte. 

a ) een negatieve array subscript 

b ) LOG met een negatief argument 

c ) SQR met een negatief argument 

d ) A"B met A negatief en B geen Integer 

e ) gebruik van MID$ , LEFTS . RIGHTS , WAIT , PEEK , 

POKE , TAB , SPC , ON.... GOTO , of een van de grafics 
funkties met een verkeerd argument. 


6 - 8 



NEXT WITHOUT FUR 


De variabele in een NEXT statement correspondeert niet 
met een variabele in het FOR statement , die het laatst 
werd uitgevoerd. 

Een naamloze NEXT correspondeert niet met een FOR 
statement. 

OUT OF DATA 

Er wordt een READ statement uitgevoerd , terwijl er geen 
elementen meer in de DATA lijst aanwezig zijn. 

OUT OF MEMORY 

Programma te groot. 

Te veel variabelen. 

FUR loops meer dan 10 diep genesteld. 

GOSUB 1 s meer dan 24 diep genesteld. 

Te gecomp 1 iceerde expressies. 

Haakjes meer dan 36 diep genesteld. 

Poging LOMEM te hoog te zetten. 

Poging LOMEM lager te maken , dan oude waarde 
Poging HIMEM te laag te zetten. 

FORMULA TOO COMPLEX 

Meer dan twee statements van de vorm IF string THEN... 
zijn uitgevoerd. 

OVERFLOW 

Het resultaat van een berekening is te groot , om in het 
BASIC getalformaat weer te geven. 

REDIM ' D ARRAY 

Nadat een array is geDlMensioneerd wordt een poging 
gedaan dezeltde array weer te DIMensioneren. 

Deze foutmelding treedt vooral op , wanneer het DIM 
statement voorbij het punt staat waar een arrayelement 
voor het eerst wordt gebruikt en door het systeem wordt 
geDIMensioneerd ( 10 plaatsen per dimensie ). 

RETURN WITHOUT GOSUB 

Een RETURN of POP statement wordt uitgevoerd , zonder dat 
er een corresponderende GOSUB is uitgevoerd. 

STRING TOO LONG 

Er is een poging ondernomen , om met een string - 
concatenatie ( = optelling ) een string te maken met meer 
2b5 karakters. 
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BAD SUBSCRIPT 


tr wordt naar een arrayelenient verwezen , dat buiten , de 
specificatie van de DIMensionering ligt. 

SYNTAX ERROR 

Haakjes vergeten in een expressie , niet toegestaan 
karakter in een regel , verkeerde interpunktie enz. 

TYPE MISMATCH 

De iinkerkant van een toekenning ( = assignment ) was een 
nummerieke variabele , terwijl de rechterkant een string 
was of omgekeerd. 

Een tunktie , die een string - argument verwacht , wordt 
een nummeriek argument meegegeven of omgekeerd. 

UNDEF' D STATEMENT 

Er wordt een poging gedaan een GOTO , GOSUB of een THEN 
statement uit te voeren onder verwijzing naar een niet 
bestaand regelnummer. 

UNDEF' D FUNCTION 

Er is een FN ingevoerd , waarvan de naam nooit is 
geDEFinieerd met een DEF FN statement. 


6-10 



4. Gereserveerde woorden 


In de onderstaande tabel zijn alle voor APPLESOFT 
gereserveerde woorden en tekens ondergebracht met 
daarachter de interne representatie van dat woord of 
teken ( decimaal ). 

Elk voor APPLESOFT gereserveerd woord neemt in het 
geheugen 1 byte in beslag , terwijl door gebruiker 
gedefinieerde namen van variabelen en funkties , 
expressies e. d. 1 byte per karakter innemen. 

& Wordt alieen voor interne doeleinden door APPLESOFT 
gebruikt en is geen echt APPLESOFT commando. Het 
veroorzaakt bij gebruik een niet - conditionele sprong 
naar adres 03FS. 

XPLOT is een gereserveerd woord , dat nog geen betekenis 
heeft. 

COLOR , HCOLOR , SCALE , SPEED en ROT worden alieen als 
gereserveerd woord herkend , als het eerstvolgende niet 
spatie karakter = is. 

SCRN , SPC en TAB worden alieen herkend , als het 
eerstvolgende niet spatie - karakter ( is. 

HIMEM en LOMEM worden alieen herkend , als het 
eerstvolgende niet - spatie karakter : is. 

TO wordt herkend als een gereserveerd woord , als het 
niet wordt voorafgegaan door een A 

ATN wordt alieen herkend als gereserveerd woord , als er 
geen spatie staat tussen de T en de N. 

CHR$ , LEFTS , MID$ , RIGHTS en STR$ worden alieen als 
gereserveerd woord herkend , als het $ teken aanwezig is 
als eerste niet - spatie karakter. 
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INTEGER BASIC 


ABS 

END 

AND 

FOR 

ASC 

GOSUB 

AT 

GOTO 

AUTO 

GR 

CALL 

HIMEM: 

COLOR = 

HUN 

CON 

IF 

DEL 

IN# 

DIM 

INPUT 

DSP 

LEN 


LET 

LIST 

LOAD 

LOMEM: 

MAN 

MOD 

NEW 

NEXT 

NOT 

NOTRACE 

OR 


PDL 

SAVE 

PEEK 

SCRN 

PLOT 

SGN 

POKE 

STEP 

POP 

TAB 

PRINT 

TEXT 

PR# 

THEN 

REM 

TO 

RETURN 

TRACE 

RND 

VLIN 

RUN 

VTAB 


APPLESOFT 


ABS 

(212) 

HTAB 

(150) 

REM 

(178) 

AND 

(205) 

IF 

(173) 

RESTORE 

(174) 

ASC 

(230) 

IN# 

(139) 

RESUME 

(166) 

AT 

(197) 

INPUT 

(132) 

RETURN 

(177) 

ATN 

(225) 

INT 

(211) 

RIGHTS 

(233) 

CALL 

(140) 

INVERSE 

(158) 

RND 

(219) 

CHR$ 

(231) 

LEFTS 

(232) 

ROT= 

(152) 

CLEAR 

(189) 

LEN 

(227) 

RUN 

(172) 

COLOR = 

(160) 

LET 

(170) 

SAVE 

(183) 

CONT 

(187) 

LIST 

(188) 

SCALE= 

(153) 

COS 

(222) 

LOAD 

(182) 

SCRN( 

(215) 

DATA 

(131) 

LOG 

(220) 

SGN 

(210) 

DEF 

(184) 

LOMEM: 

(164) 

SHLOAD 

(154) 

DEL 

(133) 

MID$ 

(234) 

SIN 

(223) 

DIM 

(134) 

NEW 

(191) 

SPC( 

(195) 

END 

(128) 

NEXT 

(130) 

SPEED= 

(169) 

EXP 

(221) 

NORMAL 

(157) 

SQR 

(218) 

FLASH 

(159) 

NOT 

(198) 

STEP 

(199) 

FN 

(194) 

NOTRACE 

(156) 

STOP 

(179) 

FOR 

(129) 

ON 

(180) 

STORE 

(168) 

FRE 

(214) 

ONERR 

(165) 

STRS 

(228) 

GET 

(190) 

OR 

(206) 

TAB( 

(192) 

GOSUB 

(176) 

PDL 

(216) 

TAN 

(224) 

GOTO 

(171) 

PEEK 

(226) 

TEXT 

(137) 

GR 

(136) 

PLOT 

(141) 

THEN 

(196) 

HCOLOR = 

(146) 

POKE 

(185) 

TO 

(193) 

HGR 

(145) 

POP 

(161) 

TRACE 

(155) 

HGR2 

(144) 

POS 

(217) 

USR 

(213) 

HIMEM: 

(163) 

PRINT 

(186) 

VAL 

(229) 

HLIN 

(142) 

PR# 

(138) 

VLIN 

(143) 

HOME 

(151) 

READ 

(135) 

VTAB 

(162) 

HPLOT 

(147) 

RECALL 

(167) 

WAIT 

(181) 





XDRAW 

(149) 


DOS 


APPEND 

CHAIN 

INIT 

POSITION 

SAVE 

BLOAD 

CLOSE 

LOAD 

READ 

UNLOCK 

BRUN 

DELETE 

LOCK 

RENAME 

VERIFY 

BSAVE 

EXEC 

OPEN 

RUN 

WRITE 
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b. APPLtSuFl geheugenmap 


UOOO - 01FF 

0200 - 02FF 
0300 - 03FF 


0400 - 07FF 
0800 - XXXX 


2000 - 3FFF 
4000 - 5FFF 
COOO - CFFF 
DUOO - D7FF 
D800 - F7FF 
EOOO - F7FF 
F80O - FFFF 


Programma geheugen. Niet toegankelijk voor 
gebruiker. 

Keyboard karakter buffer 
Beschikbaar voor gebruiker voor korte 
mach i netaa1 
programma ' s. 

Display gebied pagel voor tekst of grafics. 
Beschikbaar voor gebruiker voor BASIC 
programma 1 s machinetaalprogramma 1 s enz. 
XXXX is het hoogste in het systeem 
geinstalleerde RAM adres. 

HGR display pagel. 

HGR2 display page2. 

Hardware I / 0 adressen. 

Toekomstige ROM uitbreiding 
APPLESOFT 

APPLE INTEGER BASIC 
APPLE systeem monitor 
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HEXLOC 


USE 


•OOOO- 
* 0000 -' 
♦0000-1 
*0000 
*0001 
•OOOA-' 
* 0000-1 
*001 A-' 
*001 A-' 
*001C 
*001C 
*00 ID 
*00 IE-' 
•0020-' 
•0020 
•0021 
•0022 
*0023 
*0024 
•0023 
•0026- 
*0026- 
*0028-' 
*002A-' 
•002C 
•002C 
•002C-' 
•002D 
•002D 
•002D 
•002E 
•002E 
•002E 
•002F 
•002F 
•002F 
*0030 
*0030 
•0031 
*0032 
*0033 
*0034 
•0033 
*0035 
*0036- 
*0038 
•003A- 
•003C 
*003C 
•003C 
♦003E- 
*0040- 
*0042- 
•0044 
*0044 
*0043 
*0046 
*0047 
•0048 
*0049 
•004A 
•004C 
•004E 
•0030 
•0030 
•0030 
•0031 
•0032 
*0032- 
•0033 
*0034 
*0034- 
*0034 
*0035 
•0062 
*0067 
•0069 
•006B 
•0060- 
•006F 


•OOFF 

•0003 

*0001 


•OOOC 
*0017 
•001B 
*00 IB 


0-235 

0-3 

0-1 


10-12 

13-23 

26-27 

26-27 


28 

28 


•00 IF 
•004F 


30-31 

32-79 


36 


•0027 

*0027 

•0029 

•002B 


37 

38-39 

38-39 

40-41 

42-43 

44 

44 

44-45 

43 


*0037 

•0039 

•003B 


•0030 

•003F 

•0041 

•0043 


34-33 
36-37 
38-39 
60 

60-61 
62-63 
64-63 
66-67 
68 

-*0043 68-69 


72 

73 

74-73 
76-77 
78-79 
80-97 
80-81 
80-81 
81 
82 

•0033 82-83 


•004B 

*0040 

•004F 

•0061 

•0031 

•0031 


•0033 

*0033 

•0066 

•0068 

•006A 

•006C 

•006E 

-•0070 


84-83 

84-83 

83 

98-102 

103-104 

103-106 

107-108 

109-110 

111-112 


ROL'ROH 

LOCO 

LOCI 


SHAPEL^SHAPEH 

HCOLOR1 
COUNTH 
R 13L"“R 1 3H 

WNDLEFT 

WNDWDTH 

WNDTOP 

WNDBTM 

CH 

CV 

GBASL'GBASH 

HBASL'HBASH 

BASL'BASH 

BAS2L~BAS2H 

H2 

LMNEM 

RTNL^RTNH 


RMNEM 

V2 

MASK 

CHKSUM 

FORMAT 

LAST IN 

LENGTH 

SIGN 

COLOR 

HMASK 

MODE 

INVFLC 

PROMPT 

YSAV 

YSAVl 

L 

CSWL'CSWH 

KSWL'KSWH 

PCL'PCH 

XOT 

XQTNZ 

A1L-A1H 

A2L-A2H 

A3L-A3H 

A4L-A4H 

FMT 

A5L-A3H 

ACC 

XREG 

YREG 

STATUS 

SPNT 

LOMEML'LOMEMH 

HIMEML~HIMEMH 

RNDL~RNDH 

ACL'ACH 

DXL^DXH 

SHAPEX 

DY 

XTNDL'XTNDH 

ODRNT 

EL 

AUXL'AUXH 

EL'EH 

EH 

START PROG PTR 
LOMEM 

ARRAY POINTER 
FREE SPACE PNTR 
STRING POINTER 


HARDWARE PAGE ZERO 

JUMP INSTRUCTIONS TO CONTINUE IN APPLESOFT 
SWEET-16 (16-BIT INTERPRETER) REGISTER RO 
MONITOR MEMORY LOCATION 'LOCO' 

MONITOR MEMORY LQCATIQN 'LOCI' 

LOCN FOR USR FUNCTION'S. JUMP INSTRUCTION 
GENERAL PURPOSE COUNTEfcS/FLAGS FOR APPLESOFT 
HI-RES GRAPHICS ON-THE-FLY SHAPE POINTER 
HIRES POINTER TO SHAPE LIST 
HI-RES GRAPHICS ON-THE-FLY COLOR BYTE 
HIRES RUNNING COLOR MASK 

HI-RES GRAPHICS HIGH-ORDER BYTE OF STEP COUNT FOR LINE 
SWEET-16 (16-BIT INTERPRETER) REGISTER R13 
APPLE II SYSTEM MONITOR RESERVED LOCATIONS 
SCROLLING WINDOW LEFT SIDE (0-39 OR *0-*27) 

SCROLLING WINDOW WIDTH (1-40 OR * 1-*2B><WNDLEFT+WNDWUTH'40> 
SCROLLING WINDOW TOP LINE (0-23 OR *0-*16) 

SCROLLING WINDOW BOTTOM LINE <0-23 OR *0-*16>(WNDBTM?WNDTOP) 

CURSOR HORIZONTAL POSITION (0-39 OR *0-*27> 

CURSOR VERTICAL POSITION (0-23 OR *0-*17> 

LO-RES GRAPHICS POINTER TO LEFTMOST BYTE OF CUR PLOT LINE 

HI-RES GRAPHICS ON-THE-FLY BASE ADDRESS 

MONITOR BASE ADDRESS POINTER 

MONITOR BASE ADDRESS POINTER 2 

LOW RES COLOR GRAPHICS H2 

MONITOR MEMORY LOCATION 'LMNEM' 

MONITOR RETURN POINTER 
LOW-RES COLOR GRAPHICS V2 
MONITOR MEMORY LOCATION RMNEM' 

MONITOR MEMORY LOCATION 'V2' 

LOW-RES COLOR GRAPHICS MASK 
MONITOR MEMORY LOCATION 'CHKSUM' 

MONITOR * MINIASSEMBLER MEMORY LOCATION FORMAT' 

MONITOR MEMORY LOCATION 'LASTIN' 

MONITOR & MINIASSEMBLER MEMORY LOCATION 'LENGTH' 

MONITOR MEMORY LOCATION SIGN' 

LO-RES COLOR GRAPHICS COLOR (FOR PLOT/HLIN/VLIN FUNCTIONS 
HI-RES GRAPHICS HMASK ON-THE-FLY BIT MASK 
MONITOR &< MINIASSEMBLER MEMORY LOCATION MODE 

VIDEO FORMAT CONTROL 235(*FF)=NORMAL.127(*7F)=FLASHING,63<*3F)-INV 
PROMPT CHARACTER PRINTED ON GETLN CALL 
MONITOR t, MINIASSEMBER MEMORY LOCATION 'YSAV 
MONITOR MEMORY LOCATION 'YSAVl' 

MINIASSEMBER MEMORY LOCATION 'L' 

PROGRAM COUNTER FOR USER EXIT ON COUT ROUTINE (MONITOR) 

PROGRAM COUNTER FOR USER EXIT ON KEY IN ROUTINE (MONITOR) 

USER PROGRAM COUNTER 8AVED HERE ON BRK TO MONITOR 
MONITOR MEMORY LOCATION 'XQT' 

MONITOR MEMORY LOCATION 'XQTNZ' 

MONITOR WORK BYTE PAIR A1 
MONITOR WORK BYTE PAIR A2 
MONITOR WORK BYTER PAIR A3 
MONITOR WORK BYTE PAIR A4 
MINIASSEMBLER MEMORY LOCATION FMT' 

MONITOR WORK BYTE PAIR A3 
USER AC SAVED HERE ON BRK TO MONITOR 
USER X-REG SAVED HERE ON BRK TO MONITOR 
USER Y-REG SAVE HERE ON BRK TO MONITOR 
USER P STATUS SAVED HERE ON BRK TO MONITOR 
USER STACK POINTER SAVED MERE ON BRK 
POINTER TO LOMEM 
POINTER TO HIMEM 

16 BIT NO RANDOMIZED WITH EACH KEY ENTRY 
GENERAL PURPOSE POINTERS FOR APPLESOFT 
MONITOR POINTER 'AC' 

HIRES GRAPHICS DELTA-X FOR HLIN SHAPE 
HIRES GRAPHICS SHAPE TEMP 
HIRES ORAPHICS DELTA-Y FOR HLIN SHAPE 
MONITOR 16-BIT POINTER 'XTND' 

HI-RES GRAPHICS ODRNT 2 LSB'S ARE ROTATION QUADRANT FOR DRAW 
HI-RES GRAPHICS ERROR FOR HLIN 
MONITOR 16-BIT POINTER 'AUX' 

HI-RES GRAPHICS ERROR FOR HLIN 
HI-RES GRAPHICS ERROR FOR HLIN 
RESULT OF LAST MULTIPLY/DIVIDE 

POINTER TO BEGINNING OF PROGRAM NORMALLY *0801 
POINTER TO START OF SIMPLE VARIABLE SPACE 
POINTER TO BEGINNING OF ARRAY SPACE 
POINTER TO END OF NUMERIC STORAGE IN USE 

POINTER TO START OF STRING STORAGE STRINGS TO END OF MEMORY 
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HEXLDC 


*0083-*0084 
•0089—*0090 
•0099 

*0090—*OOA3 
•00A4 

*OOA9-*OOAB 
•OOAC-*00AE 
•OOAF-*OOBO 
•0081 

•OOB1—*0008 
•00B7 

•00B8-*00B9 

•00B8—*00B9 

*00C9-*00CD 

•OOCA-*OOCB 

*OOCC-*OOCD 

•OOCE—*OOCF 

«OODO-*OODF 

•0000 

•OODE 

•OOEO—*00E2 
•00E4 

•OOE9-*OOE7 
•OOEB—*OOE9 
•OOEA 

•OOFO—*00F3 

•00F3 

•00F4 

•00F4-*00F8 
•OOF 9 
•OOF 7 
•00F8 
•00F9 
•OOFC 

*0100—*0IFF 
•0200 

•0200-*02FF 

*0300—*03FF 

•0300-*03F7 

•0300 *03AF 

•0320-*0321 

•0322 

•0323 

•0324 

•0329 

•0324 

•0326 

•0327 

•0328—*0329 

•032A 

•03D0 

•03D0 

•0303 

•0306 

•03D9 

•03DC 

•03E3 

•03EA 

•03F8 

•03FB 

•03FE 

•03FE-*03FF 

•0400-*07FF 

•0478+6 

•0478+S 

•04F8+8 

•04F8+S 

*0978+8 

•0978+8 

•09F8+S 

•0678+8 

•0678+8 

•06F8 

♦06FB+S 

•0778+S 

•077B+S 

•07F8+S 

•07FB+S 

•0800 

*0800—*09FF 
*08OO-*0BFF 


131-132 

133-196 

197-163 

164 

169-171 

172-174 

179-176 

177 

177-200 

183 

184-189 

184-189 

201- 209 

202- 203 
204-209 
206-207 
216-223 
216 
222 

224-226 

228 

229-231 

232-233 

234 

240-243 

244 

244-248 

249 

247 

248 

249 
292 

296-911 

912 

912-767 

768-1023 

768-1019 

768-943 

800-801 

802 

803 

804 

809 
806 
806 
807 

808-809 

810 
976 
976 
979 
982 
989 
988 
999 
1002 
1016 
1019 
1022 

1022-1023 

1024-2043 

1144+S 

1144+3 

1272+S 

1272+S 

1400+S 

1400+S 

1328+S 

1696+S 

1696+S 

1784+S 

1784+S 

1912+S 

1912+S 

2040+8 

2040+S 

2048 

2048-2999 

2048-3071 


PROORAM POINTER 


PPL'PPH 

PVL'PVH 

ACL'ACH 


BRATE 

STBIT8 

STATUS 

BYTE 


PWDTH 

NBITS 


2' ( EXPONENT 


(MANTISSA 2) 


(EXPONENT 1) 
(MANTI5SA 1) 


XOL'XOH 

YO 

BXSAV 
HCOLOR 
HNDX 
HP AO 
HP AO 
SCALE 

SHAPXL'SHAPXH 

C0LL8N 


999 

1002 

USRADR 

NMI 

IRQADR 


USE 

POINTER TO THE LAST-USED VARIABLE'S VALUE 
GENERAL USAGE 

MONITOR MEMORY LOCATION 'PICK' 

MAIN FLOATINO-POINT ACCUMULATOR 
OENERAL USE IN FLOATING POINT MATH ROUTINES 
SECONDARY FLOATINO POINT ACCUMULATOR 
OENERAL USAGE FLAOS/POINTERS 

POINTER TO END OF PROGRAM NOT CHANGED BY LOMEM 
CHRGET S/R CALL - WETS NEXT SEQUENTIAL CHR OR TOKEN 
CHRGET ROUTINE CALLED WHEN A-S WANTS ANOTHER CHARACTER 
CHROOT S/R CALL CHRGET INCREMENTS TXTPTR CHROOT DOES NOT 
PTR TO LAST CHAR OBTAINED THRU CHROET ROUTINE 

TXTPTR - POINTS AT NEXT CHAR OR TOKEN FROM PROO (C/A DEC 7B> 

RANDOM NUMBER 

BASIC START-OF-PROORAM POINTER 
BASIC END OF VARIABLES POINTER 
BASIC ACC 

ONERR POINTERS/SCRATCH 
POKE O TOCLEAR ERROR FLAG 

WHEN ERROR OCCURS' ERROR CODE APPEARS HERE 
HI-RES GRAPHICS XScY COORDINATES 
HI-RES GRAPHICS COLOR BYTE 
GENERAL USAGE FOR HI-RES GRAPHICS 
POINTER TO BEGINNING OF SHAPE TABLE 
COLLISION COUNTER FOR HI-RES GRAPHICS 
GENERAL USE FLAGS 

MONITOR 8. FLOATINO POINT ROUTINES MEMORY LOC 'SION' 

MONITOR 8< FLOATINO POINT ROUTINES MEMORY LOC 

ONERR POINTERS 

MONITOR St FLOATING POINT ROUTINES MEMORY LOC 
SWEET-16 MEMORY LOCATION 'S16PAC' 

MONITOR S< FLOATINO POINT ROUTINES MEMORY LOC 

MONITOR St FLOATING POINT ROUTINES MEMORY LOC 

MONITOR St FLOATING POINT ROUTINES MEMORY LOC 

SUBROUTINE RETURN STACK 

MONITOR St MINIASSEMBLER MEMORY LOCATION 'IN' 

KEYIN (INPUT) BUFFER 

AREA CLOBBERED BY EITHER MASTER OR SLAVE DISKETTE BOOT 

OFTEN FREE SPACE NOTE COMPETING USES OFTEN FREE SPACE CONSTRAINTS 

DECWRITFR PRINTER OUTPUT (IF BLOADED FROM DISK) 

HI-RES GRAPHICS- PRIOR X-COORD SAVE AFTER HLIN OR HPLOT 
HI-RES GRAPHICS YO - MOST RECENT Y-COORDINATE 
HI-RES GRAPHICS 'BXSAV' 

HI-RES GRAPHICS COLOR FOR HPLOT' HPOSN 

HI-RES QRAPHICB HNDX - ON-THE-FLY BYTE INDEX FROM BASE ADDRESS 
POKE 32 FOR HI-RES PQ1 PLOTTINQ' 64 FOR PAOE2 

HI-RES GRAPHICS MEM PAOE FOR PLOTTING 0RAPHIC8 *20 FOR P01 '*40 FOR PG2 

ON-THE-FLY SCALE FACTOR FOR DRAW' SHAPE' MOVE 

START-OF-SHAPE-TABU* POINTER 

COLLISION COUNT FROM DRAW'DRAW1 

DOS RE-ENTRY POINT (3D0G) 

INITIALIZE OR RE-INITIALZE DOS (3DOO> 

DOS 3. 1 HARD ENTRY POINT 

DOS 3 1 ENTRY POINT FOR I/O PACKAGE 

DOS 3 1 ENTRY POINT FOR RWTS 

DOS 3 1 ENTRY POINT TO LOAD Y'A WITH ADDRESS AT END OF SYS BUFFER 

DOS 3 1 ENTRY POINT TO LOAD Y'A WITH ADDRESS OF IOBLK 

DOS 32 ENTRY POINT FOR ROUTINE THAT UPDATES I/O HOOK TABLES 

CTL-Y WILL CAUSE JSR HERE 

NMI 'S VECTORED TO THIS LOCATION 

MONITOR MEMORY LOCATION 'IRQADR' 

IRQ'S VECTORED TO ADDRESS WHOSE POINTER IS HERE 

SCREEN BUFFER (HARDWARE PAOES 4-7)(LOW-RES GRAPHICS St TEXT PAGE 1) 
SERIAL INTERFACE BAUD QUANTUM RATE *1- 19200 BAUD) *40-*300 BAUD 
SCRATCHPAD MEMORY BYTE FOR PERIPHERAL IN SLOT «8 

SERIAL INTERFACE: CONTAIN NUMBER OF STOP BITS (INCLUDING 1 PARITY BIT) 
SCRATCHPAD MEMORY BYTE FOR PERIPHERAL IN SLOT #S 
SERIAL INTERFACE: PARITY CHECKSUM OPTIONS (SEE MANUAL) 

SCRATCHPAD MEMORY BYTE FOR PERIPHERAL IN SL0T4S 

SCRATCHPAD MEMORY BYTE FOR PERIPHERAL IN SLOT »S 

SERIAL INTERFACE INPUT OUTPUT BUFFER 
SCRATCHPAD MEMORY BYTE FOR PERIPHERAL IN SLOT »S 

SCRATCHPAD MEMORY BYTE FOR PERIPHERAL IN SLOT *S 

SERIAL INTERFACE PRINT LINE WIDTH <# CHAR8 PER LINE) 

SERIAL INTERFACE NUMBER OF DATA BITS PLUS 1 FOR START BIT 
SCRATCHPAD MEMORY BYTE FOR PERIPHERAL IN SLOT *S 
SERIAL INTERFACE OPERATION MODE 

INTERRUPT RETURN MEMORY BYTE FOR PERIPHERAL IN SLOT #S 
DEFAULT INTEGER BASIC LOMEM 

AREA CLOBBERED BY EITHER MASTER OR SLAVE DISKETTE BOOT 
SECONDARY SCREEN BUFFER (TEXT St LOW-RES GRAPHICS PAGE 2) 
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HEX LOG 

•0800-*C000 

•0800-L0MEM 

•OCOO 

•OCOO—*1FFF 
•OCF2 

•1B00-«3FFF 

*lB00-«4000 

*2000-*3FFF 

•3000-L0MEM 

*3F3-*3F4 

*4000-*4520 

•4000-*3FFF 

•4300 

*4300-4320 

•3600-48000 

•9600-*9053 

*9600-*9700 

•9701-*9002 

•9001-*9833 

•9D10-? 

•9D73-*A7DF 

•9DB9 

•9E4D 

•9E7E 

•A1B4 

•A1B9 

•A1BE 

•A1DC 

•A1EE 

•A1FC 

•A200 

•A200 

•A208 

•A20C 

•A223 

•A236 

•A278 

• A2EC 
•A327 
•A330 
•A3A3 
•A476 
•A48D 
•A4A3 
•A4B0 
•A4E4 
•A 501 
•A30D 
•A331 
•A34F 
•A366 

•A7E0-4A863 

•A0CD-*A98O 

*A996-*A997 

*A998-*A999 

•A9A3-*A9A4 

•A9B3-9A9B6 

•AAOB 

•AA3F-9B2CE 
•B3EF—*B642 
•BDOO 

• BF6 
•BFFF 
•BFFF 

•cooo 

•COOO—*COOF 
•COOO—*CFFF 
•C010 

•C010—*C01F 

•C020 

•C02X 

•C030 

•C04X 

•COSO 

•C031 

•C032 

•C033 

•C034 

•C033 

•C036 

• C037 


DECLOC 

2048-49132 

204B-L0MEM 

3072 

3072-8191 

3314 

4000-16303 

6912-16384 

8192-16383 

122BB-L0MEM 

1011-1012 

16384-17696 

16384-24373 

17664 

17664-17696 

22016-?2768 

-27136—26341 

-27136—26880 

-26879—26622 

-26623—26341 

-23328-"> 

-23229—23361 

-29139 

-23011 

-24962 

-24140 

-24133 

-24130 

-24100 

-24082 

-24068 

-24064 

-24064 

-24056 

-24032 

-24029 

-24010 

-23944 

-23826 

-23769 

-23760 

-23643 

-23434 

-23411 

-23387 

-23376 

-23324 

-23293 

-23283 

-23247 

-23217 

-23210 

-22360—22439 
-22323—22144 
- 22122—22121 
-22120—22119 
-22109--22108 
-22091—22090 
-22003 

-21933—19762 

-19473—18878 

-17132 

-16304 

-16384 

-16384 

-16384—16369 

-16384—12289 

-16368 

-16368—16333 
-16332 
-16332 
-16336 
-16320 
-16304 
-16303 
-16302 
-16301 
-16300 
-16299 
-16298 
-16297 


KBD ** IOADR 


SPHR 

TXTCLR 

TXTSET 

M1XCLR 

M1XSET 

LOWSCR 

HISCR 

LORES 

HIRES 


USE 

RANGE OF POSSIBLE SETTINGS FOR HIMEM (DEPENDING UPON MEM SIZE' DOS 
PROGRAM STORAGE FOR ROM VERSION OF APPLESOFT 

DEFAULT LOCATION FOR_START OF SHAPE TABLE AS SET BY HI-RES SHAPE LOAD 
OFTEN FREE SPACE . 1 

TO CNVRT A/S PROG FM >10M TO CASSETTE LOAD PROG' CALL 3314'LIST'SAVE 
THIS REGION OF MEMORY IS CLOBBERED BY A SLAVE DISKETTE BOOT 
RAWDOS (VERSION OF DOS USED WITH MASTER CREATE - FROM DISK) 

HI-RES GRAPHICS PAGe 1 

PROGRAM STORAGE FOR RAM VERSION OF APPLESOFT 
DOS 3 1 - POKE TO ZEROS TO REBOOT HELLO PROGRAM 
NORMAL LOCATION FOR KAPOR'S HI RES TEXT SET 
HI-RES ORAPHICS PAGE 2 
CALL FOR INVERSION BY KAPOR'S ROUTINE 

S/R W/ KAPOR'S HI-RES TEXT SET TO INVERT WHITE TO BLACK 6 VICEVERSA 
DISK OPERATING SYSTEM (D0S3 1) 

DOS 3 1 USER BUFFER #1 

DOS 3 1 USER BUFFER #1 DATA BUFFER 

DOS 3 l USER BUFFER «1 - LIST OF SECTOR 6 TRACK NUMBERS USED 

DOS 3 1 USER BUFFER #1 - FILE NAME Sc MI SC DATA 

STARTING ADDRESSES FOR VARIOUS D0S3 1 TASKS 

SYSTEM SECTION OF DOS 3 1 

INITIALIZE OR RE-INITIALIZE DOS 

ROUTINE WHICH HANDLES DOS INPUT HOOK 

ROUTINE WHICH HANDLES DOS OUTPUT HOOK 

ADDRESS FOR D0S3 1 PR# COMMAND 

ADDRESS FOR DOS 3 1 IN# COMMAND 

ADDRESS FOR DOS 3 1 MON COMMAND 

ADDRESS FOR DOS 3 1 MAXFILES COMMAND 

ADDRESS FOR DOS 3 1 DELETE COMMAND 

ADDRESS FOR DOS 3 1 LOCK COMMAND 

ADDRESS FOR DOS 3 1 BSAVE COMMAND 

ADDRESS FOR DOS 3 1 UNLOCK COMMAND 

ADDRESS FOR DOS 3 1 VERIFY COMMAND 

ADDRESS FOR DOS 3 1 RENAME COMMAND 

ADDRESS FOR DOS 3 1 APPEND COMMAND 

ADDRESS FOR DOS 3 1 OPEN COMMAND 

ADDRESS FOR DOS 3 1 CLOSE COMMAND 

ADDRESS FOR DOS 3 1 BLOAD COMMAND 

ADDRESS FOR DOS 3 1 BRUN COMMAND 

ADDRESS FOR DOS 3 1 SAVE COMMAND 

ADDRESS FOR DOS 3 1 LOAD COMMAND 

ADDRESS FOR DOS 3 1 RUN COMMAND 

ADDRESS FOR DOS 3 1 CHAIN COMMAND 

ADDRESS FOR D0S3 1 WRITE COMMAND 

ADDRESS FOR DOS 3 1 READ COMMAND 

ADDRESS FOR DOS 31 INIT COMMAND 

ADDRESS FOR DOS 3 1 NOMON COMMAND 

ADDRESS FOR DOS 3 1 FP COMMAND 

ADDRESS FOR DOS 31 INT COMMAND 

ADDRESS FOR DOS 3 1 EXEC COMMAND 

ADDRESS FOR DOS 3 1 POSITION COMMAND 

DOS COMMAND TABLE 

DOS ERROR MSG TABLE 

DOS INTERNAL HOOK ADDRESS TO OUTPUT A CHARACTER 
DOS INTERNAL HOOK ADDRESS TO INPUT A CHARACTER 
LENGTH OF BLOADED FILE 
STARTINO ADDRESS OF BLOADED FILE 

START OF LIST OF POINTERS TO SECTIONS OF DOS 3. 1 I/O PACKAGES 
DOS 311/0 PACKAOE 

DOS 3 1 SYSTEM BUFFER (FOR CATALOG ETC ) 

ROUTINE WHICH READS IN DIRECTORY OFF DISK 
VOL NO OF CURRENT DISK 
HIGHEST RAM MEMORY ADDRESS 

DEFAULT INTEGER BASIC HIMEM (W/0 DOS' 40K MACHINE) 

READ KEYBOARD IF VAL>127 THEN KEY WAS PRESSED 

KEYBOARD INPUT SUBROUTINE 

ADDRES8ES DEDICATED TO HARDWARE FUNCTION 

CLEAR KEYBOARD STROBE. POKE 0 AWAYS AFTER READING KBD 

CLEAR KEYBOARD STROBE SUBROUTINE 

MONITOR MEMORY LOCATION TAPEOUT' 

TOGGLE CASSETTE OUTPUT 
PEEK TO TOOGLE SPEAKER 
OUTPUT STROBE TO GAME I/O CONNECTOR 
POKE TO 0 TO SET ORAPHICS MODE 
POKE 0 TO SET TEXT MODE 

POKE O TO SET BOTTOM 4 LINES TO GRAPHICS 

POKE-O TO SELECT TEXT/CRAPHICS MIX (BOTTOM 4 LINES TEXT) 

T’OKE TO O TO DISPLAY PRIMARY PAGE (PAGE 1) 

POKE TO 0 TO DISPLAY SECONDARY PAGE (PAGE2) 

POKE TO 0 TO SET LO-RES ORAPHICS 
POKE TO O TO SET HI-RES GRAPHICS 
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HEXLOC DECLOC NAME USE 

•C038 -16296 POKE 0 TO CLEAR CAME I/O OUTPUT ANO 

•C039 -16293 POKE O TO SET GAME I/O OUTPUT ANO 

•C03A -16294 POKE O TO CLEAR GAME I/O OUTPUT ANl 

•C03B -16293 POKE 0 TO SET GAME I/O OUTPUT AN1 

*C03C -16292 POKE 0 TO CLEAR CAME Iv'O OUTPUT AN2 

•COSO -16291 POKE O TO SET GAME I/O OUTPUT AN2 

•COSE -16290 POKE 0 TO CLEAR GAME I/O OUTPUT AN3 

•C03F -16289 POKE 0 TO SET GAME I/O OUTPUT AN3 

• C060 -1628B TAPEIN MONITOR MEMORY LOCATION 'TAPE IN' 

•C060/8 -16288 STATE OF CASSETE DATA IN' APPEARS IN BIT 7 

•C061 -16287 PEEK TO READ PDL(O) IF >127 SWITCH ON 

•C062 -16286 PEEK TO READ PDL(l) PUSH BUTTON SWITCH 

•C063 -16283 PEEK TO READ PDLI2) PUSH BUTTON SWITCH 

•C064 -16188 PADDLO MONITOR MEMORY LOCATION PADDLO 

•C064/C -16188 STATE OF TIMER OUTPUT FOR PADDLE 1 APPEARS IN BIT 7 

•C063/D -16187 STATE OF TIMER OUTPUT FOR PADDLE 1 APPEARS IN BIT 7 

•C066/E -16186 STATE OF TIMER OUTPUT FOR PADDLE 2 APPEARS IN BIT 7 

•C067/F -16183 STATE OF TIMER OUTPUT FOR PADDLE 3 APPEARS IN BIT 7 

•C070 -16272 PTRIC MONITOR MEMORY LOCATION 'PTRIG' (PADDLE TRIGGER) 

•C07X -16272 PTRIG TRIGGERS PADDLE TIMERS DURING PHI-2 

•C08X -16236 DEVICE SELECT 0 

•C09X -16240 DEVICE SELECT l 

•COAX -16224 DEVICE SELECT 2 DEVICE SELECT 2 

•COBX -16208 DEVICE SELECT 3 

•COCX -16192 DEVICE SELECT 4 

•CODX -16176 DEVICE SELECT 3 

•C0E8 -16132 ADDRESS TO POWER DOWN DISK IN SLOT 6 

•C0E9 -16131 ADDRESS 10 POWER UP DISK IN SLOT 6 

•COEX -16160 DEVICE SELECT 6 

•COFX -16144 DEVICE SELECT 7 

•ClOO -16128 CALL -16128 IS EQUIVALENT TO PR«1 FOR INITIALIZING SERIAL INTERFACE 

*ci00 -16128 STANDARD CHARACTER I/O SUBROUTINE ENTRY POINT FOR SLOT #1 

•C200 -13842 STANDARD CHARACTER I/O SUBROUTINE ENTRY POINT FOR SLOT 42 

•C300 -13616 STANDARD CHARACTER I/O SUBROUTINE ENTRY POINT FOR SLOT 43 

•C400 -13360 STANDARD CHARACTER I/O SUBROUTINE ENTRY POINT FOR SLOT #4 

•C300 -13104 STANDARD CHARACTER I/O SUBROUTINE ENTRY POINT FOR SLOT #5 

•C600 -14848 STANDARD CHARACTER I/O SUBROUTINE ENTRY POINT FOR SLOT #6 

•C700 -14392 STANDARD CHARACTER I/O SUBROUTINE ENTRY POINT FOR SLOT 46 

•C0OO-*CFFF -14336—12289 PIN 20 ON ALL PERIPH CONCTRS GOES LOW DURING PHIO ON READ OR WRITE 

•C93D -14109 SERIAL INTERFACE BATCH INPUT ROUTINE A18.A2 SPECIFY MEMORY RANGE 

•C941 -14103 SERIAL INTERFACE BATCH OUTPUT ROUTINE - A1 6 A2 SPECIFY MEMORY RANGE 

•CSOO —16384+236*S TRANSMIT ASCII CHAR IN ACCUMULATOR OUT VIA SERIAL INTERFACE IN SLOT S 

•DOOO -12288 SETHRL HI-RES GRAPHICS INIT S/R CALL (ROM VERSION) 

•DOOO-*D3FF -12288—11263 HI-RES GRAPHICS ROM 

•DOOO—*D7FF -12288—10241 ROM SOCKET DO 

•DOOE -12274 HCLR HI-RES CRAPHICS CLEAR S/R CALL 

•D010 -12272 BKGNDO HI-RES ORAPHICS 'BKONDO (HCOLORl SET FOR BLACK BKGND) 

•D012 -12270 BKOND HI-RES ORAPHICS MEMORY LOCATION BKGND' (ROM) 

•D1FC -11780 HI-RES 0RAPHIC8 FIND S/R CALL: PARAM-SHAPE'ROT'SCALE 

•D2F9 -11327 HI-RES ORAPHICS POSN S/R CALL PARAM- XO~YO*"COLR 

•D30E -11306 HI-RES ORAPHICS PLOT S/R CALL PARAM* XO^YO'COLR 

•D314 -11300 HI-RES ORAPHICS LINE S/R CALL PARAM- XO^YO'COLR 

•D331 -11471 HI-RES CRAPHICS BKOND S/R CALL PARAM* COLR 

•D337 -11463 HI-RES ORAPHICS LINE S/R CALL PARAM«XO''YO'COLR 

•D33A -11462 HI-RES ORAPHICS DRAW1 S/R CALL PARAM- XO'YO-'COLR'SHAPE'-ROT'SCALE 

•D3B9 -11333 HI-RES ORAPHICS SHLOAD S/R CALL 

•D4BC -11076 INTEOER BASIC PA«1 APPEND PROGRAM ENTRY 

•D4F2 -11022 TO CONVERT A/S FM CASSETTE TO ROM- LD FM CASS*"CALL -11022'LIST'SAVE 

•D333 -10933 INTEGER BASIC PA#1 TAPE VERIFY PROG ENTRY 

•D6DD -10331 INTEOER BASIC PA«1 RENUMBER PROG ENTRY (WHOLE PROG) 

•D6E7 -10321 INTEOER BASIC PA*1 RENUMBER PROG ENTRY (PART PROG) 

•D717 -10473 INTEOER BASIC PA*1 MUSIC PROG ENTRY 

•D80O—*DFFF -10240—8193 ROM SOCKET D8 

•DD67 -8867 FRMNUM S/R EVALS FORMULA EXP INTO FLOATING PT ACCUM 

•DEC9 -8303 SNERR S/R PRINTS "SYNTAX ERROR" AND HALTS PROG 

•EOOO -8192 BASIC ENTER INTEOER BASIC 

•EOOO-«E7FF -8192—6143 ROM SOCKET EO (INTEOER BASIC) 

•£003 -8189 BASIC2 ENTRY 2 OF INTEOER BASIC 

•E36B -7317 MEMFUL INTEOER BASIC MEMORY FULL ERROR 

•E31B -6883 INTEOER BASIC DECIMAL LPRINT S/R 

•E6FB -6408 OETBYT S/R EVALS FORMULA & CONVTS TO 1-BYT VAL IN X REG 

•E80O—*EFFF -6144—4097 ROM SOCKET EB (INTEOER BASIC) 

•EE68 -4304 RNOERR INTEOER BASIC RANGE ERROR 

•F000-9F7FF -4096—2049 ROM SOCKET FO (IK INTEOER BASIC*" 1 K MONITOR) 

•FI IE -3810 ACADR HI-RES ORAPHICS 2-BYTE TAPE READ SETUP 

•F666 -2438 TURN ON MINIASSEMBLER 

•F689 -2423 SWEET-16 INTERPRETER ENTRY 

•F800 -2048 PLOT MONITOR S/R PLOT A POINT (L0-RE8) ACY-COORD Y:X-COORD 

•F800 -2048 PLOT MONITOR 8/R PLOT A POINT. AC Y-COORD*"Y X-COORD 

•FSOO—*FFFF -2048—1 ROM SOCKET F8 (MONITOR) 
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HEXLOC 


•F80C 
•FBOE 
•FBI? 
•F819 
•FB1C 
•FB26 
•FB28 
•FB31 
•FB32 
•F832 
•F836 
•FB38 
•F03C 
•FB47 
•F896 
•F89F 
•FB64 
•F871 
•FB71 
•FB79 
•F87F 
•F882 
•F88E 
•F89B 
•F8A9 
•FBA9 
•F8BE 
•F8C2 
•F8C9 
♦FBDO 
•F8D4 
•F8DB 
•F8F9 
•F8F9 
•F910 
•F914 
•F926 
•F92A 
•F930 
•F93B 
•F940 
•F941 
•F944 
•F948 
•F94C 
•F94C 
•F993 
•F994 
4F936 
•F961 
•F962 
•F9A6 
•F9B4 
•F9BA 
•F9C0 
•FAOO 
•FA43 
•FA4E 
•FA7B 
•FA7A 
•FA86 
•FA92 
•FA9C 
•FAA9 
•FAA9 
•FA AD 
•FAAF 
•FAB9 
•FAC 4 
•FAC 9 
•FACD 
•FAD1 
•FAD7 
•FADA 
•FAE4 
•FAFD 
•FBOB 
•FBI 1 
•FB 19 
•FB1E 
•FB29 


DECLOC NAME USE 


-2036 

-2034 

-2023 

-2023 

-2020 

-2010 

-2008 


-1998 

-1994 

-1992 

-1988 

-1977 

-1962 

-1993 

-1948 

-1939 

-1939 

-1927 

-1921 

-1918 

-1906 

-1893 

-1883 

-1879 

-1898 

-1894 

-1847 

-1840 

-1836 

-1829 

-1803 

-1799 

-1776 

-1772 

-1794 

-1790 

-1744 

-1736 

-1728 

-1727 

-1724 

-1720 

-1716 

-1709 

-1708 

-1706 

-1699 

-1694 

-1626 

-1612 

-1606 

-1600 

-1936 

-1469 

-1498 

-1416 

-1414 

-1402 

-1390 

-1380 

-1371 

-1367 

-1363 

-1361 

-1391 

-1340 

-1339 

-1331 

-1327 

-1321 

-1318 

-1308 

-1283 

-1269 

-1263 

-1299 

-1290 

-1243 


RTMA8K 
PLOT 1 

HLINE 

HLINE1 

VLINEZ 

VLINE 

RT81 

CLRSCR 

CLR8CR 

CLRTOP 

CLRSC2 

CLR8C3 

0BA6CALC 

OBCALC 

NXTCOL 

SETCOL 

SCRN 

SCRN 

SCRN2 

RTMSKZ 

INSDS1 

INSDS2 

I EVEN 

ERR 

OETFMT 

MNNDX1 

MNNDX2 

MNNDX3 

1NSTDSP 

PRNTQP 

PRNTBL 

PRMN1 

PRMN2 

PRADR1 

PRADR2 

PRADR3 

PRADR4 

PRADR9 

RELADR 

PRNTYX 

PRNTAX 

PRNTX 

PRBLNK 

PRBL2 

PRBL3 

PCADJ 

PCADJ2 

PCADJ4 

RT82 

FMT1 

FNT2 

CHARI 

CHAR2 

MNEflL 

MIME MR 

STEP 

XOINIT 

XQ1 

X02 

IRQ 

BREAK 

XBRK 

XRTI 

XRT8 

PCINC2 

PCINC3 

XJSR 

XJMP 

XJMPAT 

NEWPCL 

RTNJMP 

RE0D8P 

R0D8P1 

RDSP1 

BRANCH 

NBRNCH 

1N1TBL 

RTBL 

PREAD 

PREAD2 


MONITOR MEMORY LOCATION 'RTMA8K' 

MONITOR MEMORY LOCATION 'PL0T1' 

HLINE S/R (SEE CALL-APPLE NOV/DEC 78 P04) 

MONITOR B/R TO DRAW A.HORIZONTAL LINE (LO-RES) 

MONITOR MEMORY LOCATION 'HLINE1' 

MONITOR MEMORY LOCATION 'VLINEZ' 

DRAW A VERTICAL LINE 

MONITOR MEMORY LOCATION 'RTS1 ' 

CLEAR SCREEN - GRAPHICS MODE 
CLEAR LOW RES GRAPHICS SCREEN1 
MONITOR MEMORY LOCATION 'CLRTOP' 

MONITOR MEMORY LOCATION 'CLRSC2' 

MONITOR MEMORY LOCATION 'CLRSC3' 

MONITOR S/R TO CALCULATE GRAPHICS flASE ADDRESS 
MONITOR MEMORY LOCATION OBCALC' 

MONITOR S/R - INCREMENT COLOR BY 3 

MONITOR S/R TO ADJUST COLOR BYTE FOR BOTH HALVES EQUAL 
SCRN S/R (LO-RES GRAPHICSXSEE CALL-APPLE DEC7B) 
MONITOR S/R TO GET 8CREEN COLOR AC Y-COORD'Y X-COORD 
MONITOR MEMORY LOCATION 'SCRN2' 

MONITOR MEMORY LOCATION 'RTMSKZ ' 

MONITOR MEMORY LOCATION 'INSDS1' 

MONITOR S/R - DISASSEMBLER ENTRY 
MONITOR MEMORY LOCATION 'IEVEN' 

MONITOR MEMORY LOCATION 'ERR' 

MONITOR MEMORY LOCATION GETFMT 
MONITOR MEMORY LOCATION 'MNNDX1' 

MONITOR MEMORY LOCATION 'MNNDX2' 

MONITOR MEMORY LOCATION 'MNNDX3' 

MONITOR * MINIASSEMBLER MEMORY LOCATION 'INSTDSP' 
MONITOR MEMORY LOCATION 'PRNTOP' 

'PRNTBL' 

'PRMN1' 

'PRMN2' 

'PRADR 1' 

'PRADR2' 

'PRADR3' 

'PRADR4' 

'PRADR9' 

'RELADR' 


AS 4 HEX DIGITS 


MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR S/R- PRINT CONTENTS OF Y AND 
MONITOR MEMORY LOCATION 'PRNTAX' 

MONITOR MEMORY LOCATION 'PRNTX' 

MONITOR MEMORY LOCATION 'PRBLNK' 

MONITOR 8/R- PRINT BLANKS: X REG C0NTAIN8 NUMBER TO PRINT 
MONITOR MEMORY LOCATION 'PRBL3' 

MINIASSEMBLER MEMORY LOCATION PCADJ' 

MONITOR l> MINIASSEMBLER MEMORY LOCATION 'PCADJ2' 

MONITOR MEMORY LOCATION 'PCADJ4' 

MONITOR MEMORY LOCATION 'RT82' 

MONITOR MEMORY LOCATION 'FMT1' 

MONITOR MEMORY LOCATION 'FMT2' 

MONITOR (< MINIASSEMBER MEMORY LOCATION 'CHARI' 

MONITOR Si MINIASSEMBLER MEMORY LOCATION CHAR2' 

MONITOR Si MINIASSEMBLER MEMORY LOCATION MNEML ' 

MONITOR Si MINIASSEMBER MEMORY LOCATION 'MNEMR ' 

MONITOR S/R- PERFORM A SINGLE STEP 
MONITOR MEMORY LOCATION 'XQINIT' 

MONITOR MEMORY LOCATION 'XQ1' 

MONITOR MEMORY LOCATION 'XQ2' 

MONITOR 8/R- IRQ HANDLER 
MONITOR 8/R - BREAK HANDLER 
MONITOR MEMORY LOCATION 'XBRK' 

'XRTI ' 

' XRT8' 

'PCINC2' 

'PCINC3' 

'XJSR' 

'XJMP' 

'XJMPAT' 

'NEWPCL' 

'RTNJMP' 


MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR S/R TO DISPLAY USER REGISTERS 
MONITOR MEMORY LOCATION 'RQDSP1' 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 
MONITOR MEMORY LOCATION 


'RDSP1' 

BRANCH' 

'NBRNCH' 

'INITBL' 

'RTBL ' 

MONITOR S/R TO READ PADDLE X-REO CONTAINS PADDLE NUMBER 0-3 
MONITOR MEMORY LOCATION 'PREAD2' 
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HEXLOC 

•FB2E 

DECLOC 

-1234 

NAME 

RTS2D 

USE 

MONITOR 

MEMORY LOCATION 'RTS2D' 

•FB2F 

-1233 

INIT 

MONITOR 

S/R- SCREEN INITIALIZATION 

•FB39 

-1223 

SETTXT 

MONITOR 

8/R- SET SCREEN TO TEXT MODE CLOBBER8 ACCUMULATOR 

•FB40 

-1216 

SETQR 

MONITOR 

S/R- SET ORAPHIC MODE (OR) CLOBBERS ACCUMULATOR 

•FB4B 

-1209 

SETWND 

MONITOR 

S/R- SET NORMAL WINDOW 

•FB3B 

-1189 

TABV 

MONITOR 

MEMORY LOCATION 'TABV' 

•FB60 

-1184 

MULPM 

MONITOR 

MEMORY LOCATION 'MULPM' 

•FB63 

-1181 

MUL 

MONITOR 

8/R- MULTIPLY ROUTINE 

4FB63 

-1179 

MUL2 

MONITOR 

MEMORY LOCATION 'MUL2' 

•FB6D 

-1171 

MUL3 

MONITOR 

MEMORY LOCATION 'MUL3' 

•FB76 

-1162 

MUL4 

MONITOR 

MEMORY LOCATION 'MUL4' 

•FB78 

-1160 

MOL 9 

MONITOR 

MEMORY LOCATION 'MUL9' 

•FBB1 

-1191 

DIVPM 

MONITOR 

MEMORY LOCATION DIVPM' 

•FBB4 

-1148 

DIV 

MONITOR 

8/R- DIVIDE ROUTINE 

•FB86 

-1146 

DtV2 

MONITOR 

MEMORY LOCATION 'DIV2' 

BFBAO 

-1120 

DIV3 

MONITOR 

MEMORY LOCATION 'DIV3' 

•FBA4 

-1116 

MD1 

MONITOR 

MEMORY LOCATION 'M01' 

•FBAF 

-1109 

M02 

MONITOR 

MEMORY LOCATION 'MD2' 

•FBB4 

-1100 

MD3 

MONITOR 

MEMORY LOCATION 'MD3' 

•FBCO 

-1088 

MDRTS 

MONITOR 

MEMORY LOCATION MDRTS' 

•FBC1 

-1087 

BA8CALC 

MONITOR 

8/R- CALCULATE TEXT BASE ADDRESS 

SFBDO 

-1072 

B8CLC2 

MONITOR 

MEMORY LOCATION 'BSCLC2' 

•FBD9 

-1063 

BELLI 

MONITOR 

MEMORY LOCATION 'BELLI' 

•FBE4 

-1092 

BELL2 

MONITOR 

S/R- SOUND BELL (BEEPER) 

•FBEF 

-1041 

RT82B 

MONITOR 

MEMORY LOCATION 'RTS2B' 

•FBFO 

-1040 

8T0ADV 

MONITOR 

MEMORY LOCATION 'STOADV' 

•FBF4 

-1036 

ADVANCE 

MONITOR 

S/R- MOVE CURSOR RIGHT 

•FBFC 

-1028 

RTS3 

MONITOR 

MEMORY LOCATION 'RTS3' 

•FBFD 

-1027 

VIDOUT 

MONITOR 

S/R- OUTPUT A-REQISTER AS ASCII ON TEXT SCREEN 1 

•FCIO 

-1008 

BS 

MONITOR 

S/R TO MOVE CURSOR LEFT (BACKSPACE) 

•FC1A 

-998 

UP ' CURSOR 

MONITOR 

S/R TO CUR80R UP 

•FC22 

-990 

VTAB 

MONITOR 

S/R- PERFORM A VERTICAL TAB TO ROW SPECIFIED IN ACCUM (40-1 

4FC24 

-988 

VTABZ 

MONITOR 

MEMORY LOCATION 'VTABZ' 

4FC2B 

-981 

RT84 

MONITOR 

MEMORY LOCATION 'RTS4 ' 

•FC2C 

-980 

ESC 1 

MONITOR 

S/R- PERFORM ESCAPE FUNCTIONS 

•FC42 

-998 

CLREOP 

MONITOR 

S/R TO CLEAR FROM CURSOR TO END OF PAGE CLOBBERS ACC «* Y-f 

•FC46 

-994 

CLE0P1 

MONITOR 

MEMORY LOCATION 'CLE0P1' 

•FC98 

-936 

HOME 

MONITOR 

S/R TO HOME CURSOR «< CLEAR SCREEN CLOBBERS ACCUM & Y-REG 

•FC62 

-926 

CR 

MONITOR 

S/R TO PERFORM A CARRIAGE RETURN 

•FC66 

-922 

LF 

MONITOR 

S/R TO TO PERFORM A LINE FEED 

•FC70 

-912 

SCROLL 

MONITOR 

S/R TO SCROLL UP 1 LINE. CLOBBERS ACCUM 6 Y-REO 

•FC76 

-906 

SCRL1 

MONITOR 

MEMORY LOCATION 'SCRL1' 

•FC8C 

-884 

SCRL2 

MONITOR 

MEMORY LOCATION '8CRL2' 

•FC99 

-873 

SCRL3 

MONITOR 

MEMORY LOCATION '8CRL3' 

•FC9C 

-868 

CLREOL 

MONITOR 

8/R TO CLEAR TO END OF LINE 

•FC9E 

-866 

CLEOLZ 

MONITOR 

MEMORY LOCATION 'CLEOLZ' 

•FCAO 

-864 

CLE0L2 

MONITOR 

MEMORY LOCATION 'CLE0L2' 

•FCA8 

-896 

WAIT 

CALL FOR WAIT LOOP 

•FCA9 

-899 

WAIT2 

MONITOR 

MEMORY LOCATION 'WAIT2' 

•FCAA 

-894 

WAIT3 

MONITOR 

MEMORY LOCATION 'WAIT3' 

•FCB4 

-844 

NXTA4 

MONITOR 

S/R TO INCREMENT A4 <16 BITS) THEN DO NXTA1 

•FCBA 

-838 

NXTA1 

MONITOR 

8/R TO INCREMENT A1 <16 BITS). SETT CARRY IF RESULT >-A2. 

•FCCB 

-824 

RT84B 

MONITOR 

MEMORY LOCATION 'RTS4B' 

•FCC9 

-823 

HE A DR 

MONITOR 

MEMORY LOCATION 'HEADR ' 

•FCD6 

-810 

WRB1T 

MONITOR 

MEMORY LOCATION 'WRBIT' 

•FCDB 

-803 

ZERDLY 

MONITOR 

MEMORY LOCATION 'ZERDLY' 

•FCE2 

-798 

ONEDLY 

MONITOR 

MEMORY LOCATION 'ONEDLY' 

•FCE9 

-799 

WRTAPE 

MONITOR 

MEMORY LOCATICN 'WRTAPE' 

•FCEC 

-798 

RDBYTE 

MONITOR 

MEMORY LOCATION 'RDBYTE' 

6FCEE 

-786 

RDBYT2 

MONITOR 

MEMORY LOCATION 'RDBYT2' 

•FCFA 

-774 

RD2BIT 

MONITOR 

TWO-EDGE TAPE 8EN8E 

•FCFD 

-771 

RDBIT 

MONITOR 

MEMORY LOCATION 'RDBIT' 

•FDOC 

-736 

RDKEY 

OET KEY 

INPUT FROM THE KEYBOARD. CLOBBERS ACC ' Y-REO 

•FDli 

-741 

KEY IN 

MONITOR 

8/R- MONITOR KEYIN ROUTINE 

•FD21 

-739 

KEYIN2 

MONITOR 

MEMORY LOCATION KEYIN2 

SFD2F 

-721 

ESC 

MONITOR 

MEMORY LOCATION 'ESC' 

•FD39 

-719 

RDCHAR 

CALL TO 

READ KEY 6 PERFORM ESCAPE FUNCTION IF NECESSARY 

9FD3D 

-707 

NOTCR 

MONITOR 

MEMORY LOCATION 'NOTCR' 

•FDSF 

-673 

N0TCR1 

MONITOR 

MEMORY LOCATION 'NOTCR1' 

•PD62 

-670 

CANCEL 

MONITOR 

S/R TO PERFORM A LINE CANCEL <\> 

•FD67 

-669 

OETLNZ 

MONITOR 

8/R TO PERFORM C RRIAGE RETURN AND OET A LINE OF TEXT 

•FD6A 

-662 

OETLN 

MONITOR 

S/R TO GET LINE OF TEXT FROM KEYBD X RETND W/ • OF CHARS 

•FD71 

-699 

BCK8PC 

MONITOR 

MEMORY LOCATION 'BCH8PC' 

•F 079 

-691 

NXTCHAR 

MONITOR 

MEMORY LOCATION 'NXTCHAR' 

•F07E 

-642 

CAPT8T 

MONITOR 

MEMORY LOCATION 'CAPTST' 

•FD80 

-640 

IN8TD8P 

MONITOR 

S/R TO DI8A88EMBLE INSTRUCTION AT PCH/PCL 

•FD84 

-636 

ADDIHP 

MONITOR 

MEMORY LOCATION 'ADDINP' 

•FD8E 

-626 

CROUT 

MONITOR 

S/R TO PRINT A CARRIAGE RETURN CLOBBERS ACC' Y-REO 

•FD92 

-622 

PRA1 

MONITOR 

MEMORY LOCATION 'PRA1' 

•FD96 

-618 

PRYX2 

MONITOR 

MEMORY LOCATION 'PRYX2' 






HEXLOC 

•FDA3 

•FDAD 

•FDB3 

• FD86 
•FDC3 
•FDC6 

• FDD 1 
•FDDA 
•FDE3 
•FDE3 
•FDED 
•FDFO 
•FDF6 
•FEOO 
•FE04 
•FEOB 
•FE17 
•FE1B 
•FE1D 
•FE20 
•FE22 
•FE2C 
•FE36 
•FE38 
•FE3E 
•FE63 
•FE78 
•FE7F 
•FEBO 
•FE84 
•FEB6 
•FE89 
•FE8B 
•FE8D 
•FE93 
•FE93 
•FE97 
•FE9B 
•FEA7 
•FEA9 
•FEBO 
•FEB3 
•FEB6 
•FEBF 
•FEC2 
•FEC4 
•FECA 
•FECD 
•FED4 
•FEED 
•FEEF 
•FEF6 
•FEFD 
•FF02 
•FFOA 
•FF16 
•FF2D 
•FF3A 
•FF3A 
•FF3F 
•FF44 
•FF4A 
•FF4C 
•FF39 
•FF63 
•FF69 
•FF73 
•FF7A 
•FF7C 
•FF8A 
•FF90 
•FF98 
•FFA2 
•FFA7 
•FFAD 
•FFBE 
•FFC7 
•FFCC 
•FFE3 


DECLOC NAME USE 


-603 

-393 

-389 

-386 

-371 

-370 

-339 

-330 

-341 

-339 

-331 

-328 

-322 

-312 

-SOB 

-301 

-489 

-488 

-483 

-480 

-478 

-468 

-438 

-424 

-418 

-413 

-392 

-383 

-384 

-380 

-378 

-373 

-373 

-371 

-363 

-363 

-361 

-337 

-343 

-343 

-336 

-333 

-330 

-321 

-318 

-316 

-310 

-307 

-300 

-273 

-273 

-266 

-239 

-254 

-246 

-234 

-211 

-198 

-198 

-193 

-188 

-182 

-180 

-167 

-133 

-131 

-141 

-134 

-132 

-118 

-112 

-104 

-94 

-89 

-83 

-66 

-37 

-32 

-29 


XAM8 

MODBCHK 

XAM 

DATAOUT 

RTS4C 

XAMPM 

ADD 

PRBYTE 

PRHEX 

PRHEXZ 

COUT 

C0UT1 

COUTZ 

BL1 

BLANK 

STOR 

RTSS 

SETMODE 

SETMDZ 

LT 

LT2 

MOVE 

VFY 

VFYOK 

LIST 

LIST2 

AIPCLP 

A1PCRTS 

SETINV 

SETNORM 

SETIFLC 

SETKBD 

INPORT 

INPRT 

SETVID 

OUTPORT 

OUTPRT 

IOPRT 

I0PRT1 

I0PRT2 

XBASIC 

BASCONT 

GO 

RECZ 

TRACE 

STEPZ 

USR 

WRITE 

WR1 

WRBYTE 

WRBYT2 

CRMON 

READ 

READX1 

RD2 

RD3 

PRERR 

BELL 

BELL 

RESTORE 

RESTR1 

SAVE 

SAV1 

RESET 

MON 

MONZ 

NXTITM 

CHRSRCH 

ZMODE 

DIG 

NXTBIT 

NXTBAS 

NXTBS2 

OETNUM 

NXTCMR 

TOSUB 

ZMODE 

CHRTBL 

SUBTBL 


MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONI TOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 
MONITOR 


MEMORY LOCATION 
MEMORY LOCATION 
MEMORY LOCATION 
MEMORY LOCATION 
MEMORY LOCATION 
MEMORY LOCATION 
MEMORY LOCATION 


MEMORY LOCATION 
MEMORY LOCATION 
MEMORY LOCATION 
MEMORY LOCATION 
MEMORY LOCATION 
MEMORY LOCATION 


X AM8 ' 

MODBCHK' 

XAM' 

DATAOUT' 

RTS4C' 

XAMPM' 

ADD' 

S/R TO PRINT CONTENTS OF ACC AS 2 HEX DIGITS 
S/R TO PRINT.A HEX DIGIT 
MEMORY LOCATION 'PRHEXZ' 

S/R TO OUTPUT CHAR IN ACC CLOBBERS ACC'Y-REQ'COUT 
S/R TO GET MONITOR CHARACTER OUTPUT 
MEMORY LOCATION COUTZ' 

& MINIASSEMBLER MEMORY LOCATION 'BL1' 

MEMORY LOCATION 'BLANK' 

STOR ' 

RTS3 ' 

SETMODE' 

SETMDZ' 

LT' 

LT2' 

S/R TO PERFORM A MEMORY MOVE (A1-A2 TO A4) 


MONITOR S/R TO PERFORM A MEMORY VERIFY 
MONITOR MEMORY LOCATION 'VFYOK' 

CALL TO DISASSEMBLE 20 INSTRUCTIONS 
MONITOR MEMORY LOCATION 'LIST2' 

MONITOR l MINIASSEMBLER MEMORY LOCATION 'AIPCLP' 

MONITOR MEMORY LOCATION 'A1PCRTS' 

MONITOR MEMORY LOCATION 'SETINV' 

MONITOR MEMORY LOCATION 'SETNORM' 

MONITOR MEMORY LOCATION 'SETIFLO' 

MONITOR MEMORY LOCATION 'SETKBD' 

MONITOR MEMORY LOCATION IMPORT' 

MONITOR MEMORY LOCATION 'INPRT' 

MONITOR MEMORY LOCATION SETVID' 

MONITOR MEMORY LOCATION 'OUTPORT' 

MONITOR MEMORY LOCATION OUTPRT' 

MONITOR MEMORY LOCATION 'IOPRT' 

MONITOR MEMORY LOCATION 'I0PRT1' 

MONITOR MEMORY LOCATION 'I0PRT2' 

MONITOR S/R TO JUMP TO BASIC 
MONITOR S/R TO CONTINUE BASIC 
MONITOR MEMORY LOCATION GO' 

MONITOR MEMORY LOCATION 'RECZ ' 

CALL TO PERFORM MONITOR TRACE 
MONITOR MEMORY LOCATION 'STEPZ' 

MONITOR MEMORY LOCATION 'USR’ 

MONITOR S/R TO WRITE TO CASSETTE TAPE 
MONITOR MEMORY LOCATION WR1' 

MONITOR MEMORY LOCATION WRBYTE' 

MONITOR MEMORY LOCATION 'WRBYT2' 

MONITOR MEMORY LOCATION 'CRMON' 

CALL TO READ FROM TAPE - LIMITS A1 6 A2 
HI-RES GRAPHICS - READ WITHOUT HEADER 
MONITOR MEMORY LOCATION 'RD2' 

MONITOR MEMORY LOCATION 'RD3' 

MONITOR S/R TO PRINT "ERR" AND SOUND BELL CLOBBERS ACC * Y-REO 
MONITOR S/R TO PRINT BELL CLOBBERS ACC' Y-REG 
CALL HERE TO OUTPUT BELL 

MONITOR V SWEET-16 MEMORY LOCATION 'RESTORE' 

MONITOR MEMORY LOCATION 'RESTR1 

MONITOR t SWEET-16 MEMORY LOCATION 'SAVE' 

MONITOR MEMORY LOCATION '8AV1' 

CALL HERE HAS SAME EFFECT AS PUSHING RESET BUTTON 
MONITOR S/R- NORMAL ENTRY TO TOP' OF MONITOR WHEN RUNNING 
MONITOR S/R TO RESET AND ENTER MONITOR 
MONITOR MEMORY LOCATION 'NXTITM' 

MONITOR MEMORY LOCATION 'CHRSRCH' 

MONITOR * MINIASSEMBLER MEMORY LOCATION 'ZMODE' 

MONITOR MEMORY LOCATION 'DIG' 

MONITOR MEMORY LOCATION NXTBIT' 

MONITOR MEMORY LOCATION 'NXTBAS' 

MONITOR MEMORY LOCATION 'NXTBS2' 

MONITOR I. MINIASSEMBLER MEMORY LOCATION 'OETNUM' 

MONITOR MEMORY LOCATION 'NXTCHR' 

MONITOR li MINIA88EMBER MEMORY LOCATION 'T08UB ' 

MONITOR MEMORY LOCATION 'ZMODE' 

MONITOR li MINIASSEMBLER MEMORY LOCATION 'CHRTBL' 

MONITOR MEMORY LOCATION SUBTBL' 
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HOOFDSTUK 7 GRAFISCHE VOORSTELLINGEN 


1. Grafieken met een grof raster. 


De APPLE-11 kun je uitstekend gebruiken voor het maken 
van ( architektonische of technische ) tekeningen , 
histogrammen en zelfs originele disco - pop - projecties! 
Je kunt er je kinderen op laten tekenen en mee laten 
tekenen... 

Het kan niet op !!!! 

Er bestaan enige nuttige accessoires , die het 
professionee1 werken met de grafische 1 mode 1 zeer 
ver1evendigen. Zo is er er een extra ROM - chip ( voor 
INTEGER - BASIC ) te verkrijgen , die ondermeer nuttige 
grafische routines bevat ; er is een handige 1 lichtpen 1 
en er is de ongelofelijke video - set , die het mogelijk 
maakt foto 1 s , zelfs live - televisiebeelden 



(persoonsherkenning) te verwerken , en een 1 digitizer 
- tablet waarmee tekeningen kunnen worden gemaakt. 


Maar zover behoef je nu echt 
nog niet te gaan. Wie in kleur 
wil werken , moet de speciale 
1 video PALkaart 1 of de 
speciale 1 RGB - kaart 1 
aanschaffen. Want ook dat is 
mogelijk : de APPLE-II in 
kleur. 


Nu zijn er twee verschi1lende grafische 1 modes ' , 
waarmee we de APPLE-II kunnen laten tekenen. De eerste 
geeft voorstel1 ingen met een tamelijk grof raster ( de 
'low resolution grafics' ) en de tweede geeft 
voorstel1 ingen met een uiterst fijn raster ( de ' high 
resolution grafics 1 ). Met dat laatste is het mogelijk 
foto 1 s en t.v. - beelden weer te geven , terwijl een 
uitgekiend programma tot tekenfilm - achtige effekten 
aanleiding kan geven. De ' low resolution ' grafieken 
( spreek uit : looh ressoloesjun ) zijn geschikt voor 
voetba1spe11etjes etc. Natuurlijk ook voor histogrammen 
en andere , grovere professionele toepass ingen. 


Het venster , waarin getekend kan worden bij deze 'mode 1 , 
bestaat uit de gehele schermbreedte en de gehele hoogte 
op 4 regels na , onder in het scherm. 
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Het is hierdoor mogelijk programmarege1s ( b.v. een score) 
zichtbaar te maken op het scherm terwijl er een 
tekening op het scherm te zien is. 

Het raster van deze mode heeft 40 x 40 beeldblokjes. 

De oorsprong ligt links boven in het scherm. De 
coordinaten zijn genummerd van 0 tot 39. Zie de figuur. 

Op deze wijze is het scherm ingedeeld in 1600 punten. Elk 
punt kan aangeduid worden met- zijn horizontale en 
verticale coordinaat , gescheiden door een komma. Zo ligt 
het punt 0,0 links boven in het scherm , terwijl het punt 
39,39 rechts onder te vinden is. 

De mogelijkheid is aanwezig , om het gehele scherm als 
plotvenster te gebruiken. 

Hiertoe moet het commando POKE 49234,0 worden gegeven. 

Het plotvenster wordt dan 40 x 48 punten groot. 

De volgende commando 1 s kunnen worden gebruikt , om op 
het beeldscherm te plotten. 


GR imm & def 


gr 


Geen parameters. 

Dit commando brengt de APPLE-II in de 1 low resolution 
grafics ' mode. 

Het plotvenster is nu 40 x 40. Het tekstvenster omvat 4 
regels onder in het scherm.De cursor wordt verplaatst 
naar de linker bovenhoek van het tekstvenster , terwijl 
het scherm geheel gewist wordt. 

Met POKE 49234,0 wordt het plotvenster vergroot tot 40 x 
48 , terwijl het tekstvenster en de cursor dan geheel 
verdwijnen. 

Wordt daarna een GR commando gegeven , kom je weer in de 
gemengde tekst - grafics mode. 


TEXT imm & def 


text 


Met dit commando verlaat de APPLE-II de GRafics mode en 
maakt hij het gehele scherm weer tekstvenster. De cursor 
gaat naar het begin van de laatste regel op het scherm. 
Wanneer het tekstvenster oorspronke1ijk anders werd 
gedefinieerd , dan het gehele scherm ( zie Hoofdstuk 5 , 
punt 2 ) , wordt dit na TEXT automatisch het gehele 
scherm. 
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COLOR imm & def 


color = aexpr 


Dit commando bepaalt de kleur , waarin op het scherm 
wordt geplot. 

A1s / aexpr / een real is , wordt die geconverteerd naar 
integer. 

De waarde van aexpr moet liggen tussen 0 en 255 , maar 
deze waarde wordt modulo 1b verwerkt. 

De betekenis van de kleuren is als volgt : 


u 

zwart 

1 . 

magenta 

2 

donker blauw 

3 

paars 

4 

donker groen 

5 

gri j s 

6 

blauw 

/ 

licht blauw 

8 

bruin 

9 

oranje 

10 

gri j s 

1 1 

rose 

12 

groen 

13 

geel 

14 

aqua blauw 

15 

wit 


Bij zwart / wit toepassingen zal elke kleur een eigen 
patroontje op het scherm veroorzaken. 

Na Gk is COLOR automatisch 0 


PLOT imm & aef 


plot aexpr1,aexpr2 


Dit commando plaatst een punt met horizontale coordinaat 
/ aexprl / en verticale coordinaat / aexpr2 / op het 
scherm. 

De kleur wordt bepaald door het laatst gegeven COLOR 
commando. 

/ aexprl / moet liggen tussen 0 en 40 , / aexpr2 / 
hoogstens tussen u en 47 , anders volgt de foutmelding 

?ILLEGAL QUANTITY ERROR 
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Als geplot wordt in het gebied 40 t / m 47 , terwijl het 
systeem in de gemengde tekst - grafics mode is , zal op 
de plaats , waar anders een punt geplot zou worden , een 
karakter verschijnen. 

Een karakter neemt de plaats in van twee punten. 


HLIN imm & def 


hlin aexpr1,aexpr2 at aexpr3 


HLIN tekent een horizontale lijn op het scherm van 
aexpr1,aexpr3 tot aexpr2,aexpr3. 

De kleur wordt bepaald door het laatst gegeven C010R 
statement. 

Voor de grenzen van de expressies gelden dezelfde 
overwegingen , als bij PLOT. 


VLIN imm & def 


vlin aexpr1,aexpr2 at aexpr3 


Plot een vertikale lijn op het scherm vanaf aexpr3,aexpr1 
tot aexpr3,aexpr2. 

Dezelfde overwegingen als bij HLIN 


SCRN imm & def 


scrn(aexprl,aexpr2) 


Geeft de kleurcode van het punt , dat door de expressie 
wordt gespecificeerd. 

In TEXT mode geeft SCRN een getal terug met de volgende 
betekenis : 

Als / aexpr2 / even is , de minst significante 4 bits van 
de ASCII waarde van het karakter op het scherm. 

Als / aexpr2 / oneven is , de meest significante 4 bits 
van de ASCII waarde van het karakter op het scherm. 

In high resolution mode blijft SCRN werken in het gebied, 
dat gereserveerd is voor low resolution grafics. 

Met CHR$(SCRN(X-1,2(Y-1))+16*SCRN(X-1,2(Y-1)+1)) 
verkrijgt men ASCII code van het karakter met positie X,Y 
op het scherm. 
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2. Grafieken met een fijn raster 


Deze grafics mode is ervoor , om zeer gedetai 1 leerde 
figuren te plotten. Het plotvenster is nu 280 x 160 
punten groot , terwijl onder aan het scherm 4 tekstregels 
over blijven. In deze mode kan het voile scherm voor 
grafieken benut worden , en wel door het commando POKE 
49234,0 uit te voeren. 


HGR imm & def 


hgr 


Dit commando set de High resolution grafics mode. 

Het plotveld is nu 280 x 160 posities groot , met 4 
tekstregels onder aan het scherm. Het scherm wordt zwart 
en vervolgens wordt HGR page 1 uit het geheugen 
gedisplayed ( 2000 - 3FFF hex ). 

HC0L0R verandert niet door dit commando. 

Gebruik van HGR laat het tekstvenster , zoals het was , 
zodat alleen de onderste 4 regels worden gedisplayed. 

Het plotvenster kan vergroot worden tot het gehele scherm 
door POKE 49234,0. 

De afmetingen zijn dan 280 x 192 punten. 

Met HGR komt men weer terug in de gemengde tekst - 
grafics mode. 

Een zeer lang programma kan door HGR gestoord worden. 0m 
dit te voorkomen moet bij systemen met weinig 
geheugenruimte vooraf HIMEM = 8192 getypt worden , om HGR 
page 1 te beschermen. 


HGR2 imm & def 


hgr2 


Dit commando brengt het systeem in de high resolution 
grafics mode , waarbij het plotvenster op voile 
schermgrootte is. 

Het scherm wordt zwart en vervolgens wort HGR page 2 uit 
het geheugen gedisplayed ( 4000 - 5FFF hex ). 

De tekstpage en HGR page 1 in het geheugen worden niet 
gewij zigd. 

Het is dus mogelijk afwisselend HGR page 1 en HGR page 2 
op het scherm te krijgen met de respectievelijke 
commando's: HGR en HGR2. 

Als het systeem minder dan 24K geheugen heeft , is de 
HGR2 mode niet toeganke1ijk . 

0m te voorkomen , dat programma 1 s in HGR page 2 
terechtkomen , moet HIMEM op 16384 worden geset. 
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HCULOR imm & def 


hcolor = aexpr 


/ aexpr / moet liggen tussen 0 en 7. 

Dit commando bepaalt de kleur , waarin bij HGR , of HGR2 
geplot wordt. 

0 ZWART 

1 GROEN 

2 BLAUW 

3 WIT 

4 ZWART 

5 HANGT AF VAN TV 

6 HANGT AF VAN TV 
/ WIT 


HPLOT imm & def 


hplot aexprl ,aexpr2 

hplot to aexpr3,aexpr4 

hplot aexprl,aexpr2 to aexpr3,aexpr4 


Op de eerste manier gespecificeerd , plot HPLOT een punt 
op de positie met coordinaten / aexprl / , / aexpr2 /. 

In het tweede geval zal een lijn geplot worden vanaf het 
laatst geplotte positie naar / aexpr3 / , / aexpr4 /. 

In het derde geval zal een lijn geplot worden vanaf / 
aexprl / , / aexpr2 / naar / aexpr3 / , / aexpr4 /. 
Horizontale coordinaten liggen tussen 0 en 279 , 
vertikale coordinaten tussen 0 en 191. 

Als hieraan niet is voldaan , krijg je de foutmelding 

? I LLEGAL QUANTITY ERROR 

Even tijd voor een korte oefening : 

Voer het volgende programma in en RUN het verschi 1 lende 
malen. Tracht ook enkele wijzigingen aan te brengen en 
onderzoek , hoe dit uitwerkt in de programma - executie. 

10 HGR2 
20 HC0L0R=3 

30 A =130 : B = 0 :C = 7b :D = B + 40 
40 GOSUB 300 

50 FOR T = 1 TO 200 : NEXT T 
60 B = B+5 : D = D+5 
70 IF D = 190 THEN 90 
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80 GOTO 40 

90 FOR 1=1 TO 300 : NEXT 
100 D=D-5:B=B-5 
110 HCOL0R=0 
120 GOSUB 300 
130 IF B=0 THEN 20 
140 GOTO 100 
300 HP LOT A,B TO C,D 
310 HP LOT A,B TO E , D 
320 HP LOT C,D TO E,D 
330 RETURN 
999 END 


T 



Probeer met de hiervoor opgedane kermis 
high resolution tekening te veranderen. 
programma - executie ook weer ? Oh ja , 
LIST. 

Is dit programma efficient ? 

Wat gebeurt er vanaf regel 110 ? 

Veel genoegen ! 


de positie van de 
Hoe stop je de 
CTRL - C , TEXT , 
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3. Het maken van figuren 


aPhL tSUF l heeft b speciale commando ' s , waarmee het 
mogelijk is te manipuleren met figuren in high resolution 
grafics mode. 

Dit zijn DRAW , XDRAW , ROT , SCALE en SHLOAD. 

Voordat deze commando ' s gebruikt kunnen worden , moet 
een figuur in het geheugen gedefinieerd worden. 

Lo 1 n figuur of SHAPE , bestaat uit een aantal 
plotvectors , die in het geheugen worden opgeslagen. 

Een of meerdere figuren vormen samen met indexpointers 
een z.g. SHAPETABLE ( spreek uit : sjeepteebul ). 

Een SHAPETABLE kan worden opgenomen op cassette , of 
worden weggeschreven naar floppy disk. 

Elk byte in een shape definitie is verdeeld in 3 velden , 
waarbij elk veld een plotdefinitie bevat. 

Een plotdefinitie geeft aan , of er al dan niet geplot 
moet worden en een verplaatsing naar boven , onder , 
links of rechts plaats moet vinden. 

De commando 1 s DRAW en XDRAW gaan byte voor byte door de 
plotdefinities tot ze een byte tegenkomen , die alleen 
maar nullen bevat. 

In figuur A is aangegeven , hoe een shape definitie byte 
is ingedeeld. 


C B A 


/ \/ \/ \ 


| 7 |b|5|4|3|2|l|0| 

DDPDDPDD 


figuur A 


veld 

bitnummer 
specificatie 


Elk paar DD bits geeft een verplaatsing aan , elk P bit 
of er een verplaatsing geplot moet worden. 

De waarden van DD zijn : 

DD = 00 een stap omhoog 

DD = 01 een stap naar rechts 

DD = 10 een stap naar beneden 

DD = 11 een stap naar links 

Al s 


P = 1 wordt er geplot 
P = 0 wordt er niet geplot 

Merk op , dat het veld C geen P bit bevat , zodat hiermee 
alleen een verplaatsing aangegeven kan worden. 
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DRAW en XDRAW processed de bytes van rechts naar links , 
dus achtereenvolgens het veld A , B , C. 

Altijd geldt , dat wanneer de resterende bits van een 
byte 0 zijn , de rest van dat byte wordt genegeerd. 

Dit betekent dat in veld C geen 1 stap omhoog ' kan 
staan. 

Als veld C 00 bevat , kan in veld B geen 1 stap omhoog 
zonder plotten 1 staan. 

Als veld C en veld B alleen nullen bevat , kan in veld A 
geen 1 stap omhoog zonder plotten 1 staan , want dan zou 
het gehele byte alleen nullen bevatten , waardoor het 
plotproces wordt afgebroken. 

Stel dat de volgende figuur geplot moet worden : 


figuur B 


Je kunt deze tekening het beste op mi 11imeterpapier 
zetten , een punt per vierkante millimeter. 

Beslis nu WAAR begonnen moet worden met de figuur. 
Laten we beginnen in het midden. Dit punt bepaalt ook 
waar een figuur met DRAW en XDRAW op het scherm wordt 
gep 1 aatst. 


Trek vervolgens een doorlopende lijn vanaf het begin naar 
elk punt , dat in de figuur voorkomt , maar gebruik 
daarbij eventueel alleen hoeken van 90 graden. 
Bijvoorbeeld : (figuur C) 


Zet dan pijltjes in de figuur , zodat 
duidelijk is , welke verp 1 aatsingen er 
gedefinieerd moeten worden. 

Dus : (figuur D) 


De tekening bestaat nu uit pijltjes , die al dan niet 
ontspringen aan een punt. 
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We gaan deze tekening coderen in een tabel. Hierbij kan 
eventueel gebruik gemaakt worden van een tussenstap , 
waarbij eerst de pijltjes in een tabel worden geplaatst. 
Let erop , dat in veld C geen beweging omhoog mag 
voorkomen , en als veld C nullen bevat , er in veld B 
geen beweging omhoog zonder plotten mag voorkomen , en 
dat een byte met enkel nullen niet binnen de 
p 1 otdefinities mag voorkomen. 


veld 

byte 



voeg als laatste byte een nulvector toe , om de tabel 
correct af te sluiten. 

Op a 11 e niet gebruikte bit - posities moet nog een 0 
geplaatst worden. 

Vervolgens moet de tabel naar hexadecimale waarden worden 
vertaald , or hem te kunnen invoeren in de APPLE - II. 


veld 

byte 


C 8 A hex codes 


0 

0001 

0010 

1 

0011 

1111 

2 

0010 

0000 

3 

0110 

0100 

4 

0010 

1101 

5 

0001 

0101 

6 

001 1 

01 10 

7 

0001 

1110 

8 

0000 

0111 

9 

0000 

0000 


12 

bi na i r 

hex 

3 F 

0000 

0 

20 

0001 

1 

64 

0010 

2 

2D 

001 1 

3 

15 

0100 

4 

36 

0101 

. 5 

1 E 

0110 

6 

07 

0111 

7 

00 

1000 

8 


1001 

9 


1010 

A 


1011 

B 


1100 

C 


1101 

D 


1110 

E 


1111 

F 


Er is echter nog meer informatie nodig , om de shapetable 
te completeren. Er moeten nog indexpointers aan 
toegevoegd worden. 

In het geval van ons voorbeeld is dat niet zo moeilijk , 
omdat de tabel slechts een figuur bevat. 
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Het eerste byte van een shapetable moet het aantal 
figuren bevatten , dat in de tabel voorkomt. In ons 
geval is dat 1. 

Op de eerste positie van de tabel ( laten we dit adres 
voor het gemak S noemen ) komt dus 01 te staan. 

Het tweede byte , S + 1 , wordt niet gebruikt. 

Vervolgens komen er een of meerdere pointers , die 
verwijzen naar het begin van de verschi1lende figuren in 
de tabel. Een pointer is twee bytes groot en bevat het 
aantal bytes , dat het begin van een figuur van S 
verwijderd ligt. 


Bij de pointers moet men erop letten , dat eerst het 
minst significante byte en dan het meest significante 
byte moet worden ingevoerd. 

Na de pointers komen de shape definities. 
in de figuren H en K is de opbouw van een shapetable 
nogmaals geschetst voor het algemene gebruik en voor het 
behande1de voorbeeld in het bijzonder. 


Start=S Byte S 
S+1 
S+2 
S+2 

INDEX S+3 

S+4 


S+2n 

S+2n+1 

S+P1 


FIGUREN S + P2 


S+Pn 


n 

ongebruikt 

LSB fig 1 

MSB fig 1 

LSB fig 2 

MSB fig 2 


LSB fig n 

MSB fig n 

1 byte fig 1 


00 

1 byte fig 2 


1e byte fig n 


Aantal 

P1:Pointer naar figuur 1 
P2:Pointer naar figuur 2 


Pn:Pointer naar figuur n 


START Byte 0 

01 

1 

00 

2 

04 

3 

00 

4 

12 

5 

3F 

6 

20 

figuur K 7 

64 

8 

2D 

9 

15 

A 

36 

B 

IE 

C 

07 

D 

00 


aantal figuren 

ongebruikt 

LSB pointer 

MSB pointer 

1e byte shape definitie 


laatste byte shape definitie 
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De tabel kan nu in de APPLE-II worden ingevoerd. 

We raden aan , als je nog nooit met monitor - commando's 
hebt kennisgemaakt , Hoofdstuk 8 te bestuderen. 

Kies eerst een startadres. Dit adres moet natuurlijk 
kleiner zijn , dan het grootste in je APPLE-II 
voorkomende RAM adres , en niet in een gebied komen , dat 
gebruikt wo.rdt door HGR of HGR2. 

Laten we als voorbeeld lokatie 1DFC kiezen. Dit is net 
onder HGR page 1. 

Bedien de RESET toets om in Monitor te komen ( of CALL 
-151 ). 

Tik het startadres 1DFC in , gevolgd door Daarna 
gescheiden door spaties de hexadecimale bytes van de 
shapetable. Dus : 

1DFC: 01 00 04 12 3F 20 b4 2D 1 5 36 IE 07 00 (RETURN) 

Display de gebruikte geheugenp1aatsen , om te controleren 
of er geen fouten zijn gemaakt. 

Gebruik hiervoor bijvoorbeeld : 

1DFC.1E09 (Return) 

Vervolgens moet in speciaal daarvoor gereserveerde 
geheugenp 1 aatsen het startadres van de tabel geplaatst 
worden , zodat APPLESOFT de shapetable kan vinden. 

Deze geheugenlokaties zijn de adressen E8 en E9. E8 bevat 
het minst significante deel van het adres , E9 het meest 
s ign i f icante deel. 

In het geval van het voorbeeld moet je de plaatsen E8 en 
E9 vullen met FC en ID. Om de shapetable te beschermen 
kun je HIMEM het beste op het startadres van de tabel 
zetten. Dus : 

E8: FC ID (Return) zet de pointer op adres 
shapetable 

73: FC ID (Return) zet HIMEM op startadres 
shapetable 

Sla de lengte van de tabel op in adres 0 en 1 
0 : OD 00 (Return) 

Schrijf de lengte van de shapetable en de shapetable zelf 
naar cassette ( zorg ervoor dat de recorder opneemt en 
loopt , voordat je de RETURN toets bedient ) : 

0.1W 1DFC.1E09W (Return) 

Aan het begin en einde van de. opname hoor je een 1 biep 1 
toontje. 
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Met de volgende commando 1 s kan je shapes manipuleren. 


DRAW imm & def 


draw aexprl f at aexpr2, aexpr3 ij 


Als aexprl alleen gespecificeerd is , wordt figuur 
/ aexprl / geplot op de plaats , waar het laatst een high 
resolution plot heeft plaats gevonden. 

/ aexprl / mag natuurlijk niet groter zijn dan in het 
eerste byte van de shapetable is opgegeven. 

Als 3 expressies worden gespecificeerd , dan wordt figuur 
/ aexprl / geplot op lokatie / aexpr2 / , / aexpr 3 / van 
het scherm. 

In het geval van het voorbeeld : 

DRAW 1 AT 100,100 

zal het gedefinieerde figuurtje op positie 100,100 
getekend worden. 


XDRAW imm & def 


xdraw aexprl f at aexpr2,aexpr3 ij 


XDRAW doet hetzelfde als DRAW met dit verschil , dat elk 
te plotten punt op het scherm wordt geplot in de kleur , 
die het complement is van de kleur , die dit punt al op 
het scherm heeft. 

Het is hierdoor mogelijk figuren uit een plaatje weg te 
halen , zonder de rest van het plaatje te verstoren. 


ROT imm & def 


rot = aexpr 


Met ROT kan de ruimtelijke afstand van de te plotten 
figuren worden aangegeven. 

/ aexpr / moet liggen tussen 0 en 255. 

ROT = 0 geeft geen rotatie van de figuur 

ROT = 1b geeft een hoekverdraaiing over 90 graden met de 

wijzer van de klok mee. 

ROT = 32 geeft hoekverdraaiing over 180 graden 

ROT = 48 geeft hoekverdraaiing over 270 graden 

ROT = 64 gelijk aan ROT = 0. 


7-15 




Ais SCALE = 1 kunnen slechts 4 mogelijke rotatiehoeken 
worden opgegeven : 0 , 1b, 32 en 48. 

Als SCALE = 2 kunnen 8 rotatiehoeken worden opgegeven : 

0 , 8 , 1b , 24 , 32 , 40 , 48 , 56. 

Als SCALE = 3 kunnen 1b mogelijke verdraa i ingen worden 
opgegeven enz. 

Niet herkende rotaties hebben meestal tot gevolg , dat de 
naast1iggende , kleinere rotatie wordt uitgevoerd. 


SCALE imm & def 
scale = aexpr 

Maakt het mogelijk figuren te vergroten. 

/ aexpr / moet liggen tussen 0 en 255. 

SCALE = 0 vergroot 25b maal. 

SCALE = 1 kopieert de figuur zonder vergroting , enz. 
SHLOAD imm & def 


Dit commando laadt een shapetable van cassette, 
lie shapetable wordt direct onder HIMEM geplaatst , 
terwijl na het laden HIMEM wordt verzet naar het begin 
van de shapetable. Ook de tablepointer wordt op de juiste 
waarde gezet ( E8-E9 ). 

Alleen een RESET onderbreekt een SHLOAD. 

De volgende 3 dingen dienen bekend te zijn , om een 
shapetable naar cassette te kunnen schrijven : 

1. startadres van de shapetable 

2. laatste adres van de shapetable 

3. de lengte van de shapetable in bytes 

De lengte van de shapetable moet opgeslagen worden in 
lokaties 0 en 1 van het geheugen. Minst significante byte 
in 0 , meest significante byte in 1. 

Er kan nu met het monitor W(rite) - commando naar 
cassette geschreven worden , eerst de lokaties 0 en 1 en 
dan de shapetable zelf. 

In het geval van het hiervoor behandelde voorbeeld : 

1. 1DFC 

2. 1E09 
3 . 000D 
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1 REM ************************** 

2 REM * SHAPE CREATION PROGRAM * 

3 REM * * 

4 REM ************************** 

10 DIM SI(100),VI(100) 

20 I = 0 

30 PRINT "CREATE SHAPE VECTORS" 

40 PRINT 

41 REM ENTER PLOT ACTIONS 
50 V = is GOSUB 270 

58 REM CONTINUE ENTRY UNTIL M* 

59 REM EQUALS TERMINAL VALUE "E" 

60 IF M* < > "E" THEN SKI) = Ms I = I + is GOTO 50 

70 PRINT 

71 REM ALLOW CORRECTIONS 

80 INPUT "VECTOR TO CHANGE (0=END)s";V 

90 IF V > 0 THEN V = V - is GOSUB 270sSI(V) = Ms GOTO 80 

99 REM PACK VECTORS INTO VI() ARRAY 

100 FOR V = 0 TO I 

110 IF B = 2 AND S1(V) > 0 AND S1(V) < 4 THEN 140 
120 IF B < 2 AND (S1(V) > 0 OR S1(V) > 4) THEN 140 
130 B = OsQ = Q + 1 

140 VI(Q) = VI(Q) + S1(V) * (8 * B) 

150 B = B + 1 

160 IF B > 2 THEN B = OsQ = Q + 1 
170 NEXT V 

178 REM DISPLAY THE VECTORS AS 

179 REM HEXADECIMAL NUMBERS 

180 PRINT "BYTE","VECTOR" 

190 FOR V * 0 TO Q 

200 H7. = VI (V) / 16 

210 L7. = VI (V) - H7. * 16 

220 IF H7. > 10 THEN H7. = H7. + 7 

230 IF L7. > 10 THEN L7. = L7. + 7 

240 PRINT V, CHR$ (H7. + 176); CHR* (L7. + 176) 

250 NEXT V 
260 END 

269 REM VECTOR INPUT SUBROUTINE 

270 PRINT "VECTOR ";V + l?"s"; 

280 INPUT "MOVES U/D/L/R? ";M* 

290 M = 0 

300 IF M* = "R" THEN M = 1 

310 IF M* = "D" THEN M = 2 

320 IF M* = "L" THEN M = 3 

330 IF M* = "E" THEN RETURN 

340 INPUT "PLOT (Y=YES> N=NO)? ";P« 

350 IF P* = "Y" THEN M = M + 4s RETURN 
360 IF P* = "N" THEN RETURN 
370 GOTO 340 





HOOFDSTUK 8 MONITOR 
in l e 1 d i ng 


De APPLE II computer beschikt over een 
monitor-hu1pprogramma . Dit monitorprogramma bestaat uit 
een hoofdprogramma met een aantal kleine, maar krachtige 
subroutines. In feite is de monitor een 
controleprogramma, dat allerlei processen in de computer 
reguleert. Na het inschakelen van de computer zorgt een 
z.g. "bootstrap" programma ervoor, dat er enkele 
inleidende monitor-routines worden gebruikt, waardoor hij 
zich direkt gebruiks-k 1 aar aanmeldt. Het 
bootstrapprogramma ligt onveranderiijk vast en reageert 
enkel op de voedingsspanning . 

Om in de monitor te komen zijn er twee moge1ijkheden. De 
standaard versie van de APPLE II, die niet is uitgerust 
met een Autostart ROM en niet standaard van Applesoft is 
voorzien, is hierbij enigszins in het voordeel. De APPLE 
II PLUS, of EURO-APPLE, met Autostart ROM en standaard 
Applesoft vraagt om een iets afwijkende benadering. 
Bovendien beschikt dit type niet standaard over een 
Mini-Assemb1er, waarover later meer. 

Om vanuit Basic over te schakelen naar de monitor tik je: 
J CALL-151 (return ) 

De prompt verandert nu in het asteriksteken : *. 

Wij kunnen nu volgens 3 methoden te werk gaan, om nader 
via de monitor geheugenp1aatsen uit te lezen. 

1. bekijken van een enkel adres 

2. bekijken van een geheugenwoord, of regel 

3. bekijken van een geheugenblok 

Bij de bespreking van de verschi1lende monitorcommando's 
betekent "adres" een hexadecimaal getal van 4 cijfers. 
Daarvan mogen de niet significante nullen worden 
weggelaten. Dus: 00 01 mag worden genoteerd als 1. 

Onder "data" wordt verstaan een hexadecimaal getal van 2 
cijfers, waarvan de niet significante nullen eveneens 
mogen worden weg gelaten. De commando's worden telkens 
afgesloten met een tik(je) op de RETURN-toets. Daaraan 
zullen we dus verder voorbijgaan! 

1 . ENKELE OBSERVATIES 

De APPLE II systeemmonitor omvat het bovenste gebied van 
de geheugenmap van de computer. De erin ondergebrachte 
routines worden ondermeer uitgebreid beschreven in het 
APPLE REFERENCE MANUAL, dat bij de computer wordt 
meegeleverd. Toch zijn de handige programmaroutines lang 
niet voor iedereen toegankelijk . 
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Vaak doe je er zelfs ongemerkt een beroep op. Nuttige 
POKE'S en CALL'S behoren ertoe. Bijv. CALL-936 is een 
verwijzing naar een monitorroutine, die het beeldscherm 
"wist" en de cursor links bovenin plaatst. CALL-936 komt 
overeen met het Applesoft HOME commando en verwijst naar 
de hexadecimale lokatie $FCb8. 

Het werken met de systeem-monitor brengt je heel dicht 
bij de ware taal van de 6502-microprocessor, waarmee de 
APPLE II is uitgerust. Wat nog niet wil zeggen, dat je in 
de monitor op dezelfde manier te werk kunt gaan, als 
weleens in mooie assembler listings wordt voorgespiege1d . 
Werken in de monitor is priegelwerk en het veronderste 11 
begrip van het hexadecimale en tweetallige geta1sste 1 se 1 . 
Aanbevolen litteratuur is: APPLE MACHINE LANGUAGE door 
Don en Kurt Inman; THE APPLE II MONITOR PEELED door 
W.Dougherty en 6502 ASSEMBLY LANGUAGE PROGRAMMING door 
L.A.Leventha1. De boeken werden in opklimmende 
moei 1 ijkheid'sgraad opgenomen en zijn verkrijgbaar bij de 
boekhandel. 
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2. DE MONITOR IN EN UIT 


Ondermeer bij de behandeling van het DOS kom je een 
stukje monitor-programmering tegen. Nu is het begrip 
"monitor-programmering" wat omslachtig en eigenlijk 
minder juist. De systeemmonitor ligt als programmeerhu1p 
in ROM vast en hangt ten nauwste samen met de 
BASIC-Interpreter, die ook in ROM werd opgeslagen. 

Daaraan valt op zichzelf weinig te veranderen. 

We bedoeien eigenlijk het in een machinetaal programmeren 
van onze fijne APPLE computer. 

Om in de monitor te komen tikken we CALL-151. Heb je de 
tekst goed gevolgd, dan is je computer al in de monitor 
en zie je een * als prompt met daarnaast de knipperend 
cursor. 

Om weer terug te komen in Basic tik je CTRL-C (return) en 
alles is weer bij het oude en nu al wel bekende. Maar 
verandert een Basic programma nu, wanneer je de monitor 
in en uit gaat ? 

Laten we dit eerst testen: 

]10 REM MON TEST 
20 PRINT 10*10 
30 END 

Let op: ]CALL-151 
★ 


Tik nu: CTRL-C (en tik op de returntoets) 

Gelukt ? 

] ja, want de Applesoftprompt is terug 
Test nu RUN en LIST. 

CTRL-C werkt prima met Integer Basic en Applesoft in ROM 
Maar het werkt niet met Applesoft vanaf cassette en 
diskette. De terugkeer wordt dan bewerkste11igd door: 

a) Diskette: *3D0G (return) 

b) Cassette: * OG (return) 

Beide instrukties grijpen terug op BRANCH instriikties van 
ae monitor. Waarover later meer. 


Er is evenwel nog een moge1ijkheid : druk een keer op de 
RESET toets. Degenen met een Autostart ROM zijn dan 
direkt terug in Basic. Heb je geen Autostart ROM dan 
blijft de prompt een asteriks *. 

Nu een andere, veel gevraagde oefening: 

Eerst maken we ons beeldscherm schoon: HOME en wissen we 
ons oude programma: NEW. 

Tik n u: 

JlO PRINT 1 
20 REM NAAM 
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Zo'n programma blijft natuurlijk ergens in het geheugen 
van de APPLE opgeslagen. Maar waar en kunnen we het daar 
eens bekijken? Tik daarom alvast CALL-151. 
Applesoftprogramma's beginnen onder in het vrije RAM 
werkgeheugen en volgens de geheugenmap vanaf adres 2048 
of $800. Vanuit de monitor kunnen we dit en de erop 
volgende adressen inspecteren. Voer dan nu het getal 800 
in. De monitor accepteert aileen de hexadecimale 
adresnotatie - dus: met 16 vingers tellen, zo van: 
0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,10 etc. Je herinnert je, 
dat het getal 10 een combinatie is van 1 en 0 .... 
Applesoftprogramma ' s beginnen in tegenstel1 ing tot Integer 
programma's onder in het werkgeheugen. 

*800 return 

Op de display verschijnt: *800: 00 , hetgeen de 'waarde' 
is van de 8 bits code, die er vermeld staat. De 
tweetallige code, die elk bit van een 8 bits (=1 byte) 
instruktie bevat, kan of nul of een (=0 of 1 ) zijn, maar 
1 byte kan een geweldige hoeveelheid combinaties hiervan 
te zien geven. Maximaal zijn er 255 of $FF combinaties te 
bedenken. Door nu 2 bytes (16 bits) te combineren, kan de 
6502 microprocessor veel grotere waarden aan. En dat is 
dan ook precies de manier, waarop hij werkt. Een 2-bytes 
instruktie bestaat uit een Minst Significante Byte en een 
Meest Significante Byte. Eerst komt de Minst gevalideerde 
byte, daarna de Meest gewichtige byte. Omdat dit soms 
moeilijk wordt gevonden eerst een samenvatting: 

1 Blnaire digiT (BIT) kan u of 1 zijn 

1 BYTE bestaat uit 8 Bits 0000 0000 

2 BYTE combinaties bestaan uit een LSB en een MSB 
margin12 

LSB=least significant byte / minste gewicht 
MSB=most significant byte / meeste gewicht 

Terug naar de computer interpretatie van ons Basic 
programma. 

Wanneer we opnieuw RETURN geven, verschijnen meer bytes 
op het scherm. 

*800 

00 

08 08 OA 00 BA 31 00 geef nu weer return 
*808:13 08 14 00 B2 20 4E 41 

Wat je bij adres *808 ziet, noemt men een 
geheugen-WOORD. Een groep van 8 bytes. A11e woorden in 
het geheugen beginnen op een adres, waarvan het getal 
door 8 deelbaar is. Denk erom, dat het woord *808 als 
volgt wordt verdergete1d: 

*808 809 80A 80B 80C 80D 80E 80F, dan volgt 810 

Hoe spreek je dat uit ? Bijv. 80E - acht nul eeh - that's 
all ! ! 
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Wanneer we de ASCII-code tabel erbij nemen (je vindt hem 
ook in het Reference Manual op biz.15), ontdek je, dat 
alle karakters in de computerwere1d een hexadecimale 
'waarde' vertegenwoordigen. Zo blijkt het getal 10 van . 
ons eerste rege1nummer $0A te zijn. Het $-teken geeft een 
hex-waarde aan, dit nogmaals en ten overvloede. Beginnen 
we daarom vanaf adres $800 te lezen, dan zoeken we naar 
de byte, die $0A is. Op $803 vinden we hem, gevolgd door 
twee nullen op $804. De APPLE heeft 65535 (16~4 -1) 
adres lokaties als gevolg van de 2-bytes codeafhande1ing 
door de 6502 processor. Met andere woorden zien we op 
$803/804 een demonstratie van de LSB en MSB in hun 
logische opeenvo 1 ging . De code BA op adres $805 staat 
voor het PRINT-statement! Alle Basic statements hebben 
hun eigen "byte"-code, hetgeen veel geheugenruimte 
bespaart. 

De waarde 31 is de ASCII-code voor het getal 1. Het einde 
van een Basic programmaregel is in de monitor een 00, die 
we dan ook zien op adres $807. Tikken we nogmaals RETURN 
om een extra woord in te lezen. De volgende 
programmaregel in Basic was 20. In het zestiental 1 ig 
stelsel is dat $14: (1 zestiental + 4). Op $80A vinden we 
het terug. Gevolgd door de MSB: 00. 

Nu komt een grapje, dat sommigen weleens in vertwijfel ing 
heeft gebracht. Stel je nu eens voor, dat wij het 
regelnummer in de monitor wijzigen !?! 

Om een adres te wijzigen tikken we het adres, gevolgd 
door een dubbele punt- dus: 80A: 

Wat zal er straks in ons Basic programma te zien zijn, 
wanneer we $80A:FF maken ? DOEN! 

Nu keren we na een diepgaande omzwerving in het 
monitor/programma gebeuren terug naar Applesoft. Tik 
eerst RETURN, daarna 3D0G. 

LIST het programma. 

Wat zal er gebeuren, wanneer je ook de MSB de waarde $FF 
geeft? 

CALL-151 en duik terug in de monitor. Tik *800L (L van 
List). 

Dat gaat snel. We zien in een beurt een heel geheugenblok 
Tik nu: *80B:FF en let er tegelijk op, dat de 
End-Of-Program Pointer een reeks van 3 nullen is. De EOP 
pointer vind je ook terug op adres 175 en 176, ofwel $AF 
en $B0; in LSB/MSB notatie. 

Gemakkelijk, als je het einde van een lang programma in 
Applesoft wilt zoeken. 

Keer weer terug in Applesoft: *3D0G. LIST opnieuw je 
programma. 

Probeer het hoge regelnummer nu te verwijderen. Leuke 

copyright-bescherming, nietwaar en sssssttt_ niet tegen 

vrienden vertellen natuurlijk! 
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Zo krijgen we de smaak te pakken. Misschien begrijp je 
tegelijk, dat we iets beter de weg kunnen vinden in de 
monitor notatie van ons Bas i c-programma. Willen we bij 
een ander programma "binnen kijken", dan zijn hier een 
paar ASCII-codes voor Applesoft statements: 


REM 

B2 

PRINT 

BA 

NEW 

BF 

END 

80 

GOTO 

AB 

GET 

BE 

1 -9 

31-39 



M 

1 

< 

41 -5A 
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3. GEHEUGENCOMMANDO 1 S 


Display geheugen 


adres 

adres 1. adres2 

return 

.adres 

toon inhoud geheugenp1aats/adres 
toon inhoud geheugenblok 
toon volgende geheugenwoord 
toon geheugeninhoud vanaf laatst 
getoonde adres tot aangegeven adres 

Wijzig geheugen 


adres :data1 data2 etc 

wijzig geheugeninhoud vanaf 
adres met opgegeven data 
(spatie) .data etc. 


Verplaats geheugenblok 

adres1padres2.adres3M plaats datablok adres 2.adres3 in 

blok te beginnen bij adresl 

Vergelijk geheugenblok 

adres1padres2.adres3V vergelijk blok adres2.adres3 met 

blok dat begint bij adresl 

Input/Output commando's 


(getal)CTRL-P 

stuur informatie naar Slot (getal) 

(getal )CTRL-K 

Getal tussen 0 en 7. 0 is CRT/TV 
input gelezen van Slot (getal) 
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4. DISPLAY COMMANDO'S 

Een erg aantrekke1ijk monitorgebied is het TEXT-display . 

De TV-monitor vomit hierbij het venster, waardoor we 
kunnen zien, wat zich in zeer specifieke geheugenlokaties 
afspeelt. TEXT-display is een overzichte1ijk proces, dat 
we zowel vanuit het Applesoft programma als het 
monitorprogramma kunnen besturen. Het TEXT-venster omvat 
een geheugengebied, dat begint bij adres 1 024, of $400 en 
dat loopt tot 2047, $/FF. Men noemt dit gebied het 
TEXT-venster no. 1, of in computerbargoens TEXT-Page One. 

Een tweede pagina omvat de volgende 1024 bytes en loopt 
van $800 tot $BFF (2048-3071 decimaal). 

Wie rekenen kan zal onmiddellijk opmerken, dat er 1024 bytes 
ter beschikking zijn, om een gebied van 40 karakters op 24 
regels te vullen - we houden dus wat over. 

De resterende bytes worden gebruikt als een soort 
bewaarplaats voor data afkomstig van PROM's op 
insteekkaarten in de APPLE II Slots. Zowel de Low 
Resolution Graphics als de tekstkarakters maken gebruik 
van het TEXT-venster. Zij het in een ander "formaat" - 
m.a.w. de schrijfwijze is afwijkend. Laten we ons bepalen 
tot tekstmanipulaties. 

0m een letterteken te displayen zullen we rekening moeten 
houden met een samenhangende reeks bijzonderheden. 

Zo heb je bij de behandeling van de Applesoft statements 
al gehoord van de afmetingen van het TEXT-venster en heb 
je een overzicht gezien van de setting van de bovenkant, 
de zijkanten en de onderkant van de "scro11-w i ndow". POKE 
32 t/m 35 bepalen de omvang van het beeldvenster en dat 
kan maximaal 960 tekens bevatten. Wanneer we na een 
CALL-151 de adressen $20/$23 bekijken, hebben we een 
ander zicht op de omvang van het beeldvenster. 

Adres $32 heeft te maken met de "mode", waarin zich de 
karakter-output op het tv-scherm bevindt. POKE 50,63 
zorgde er immers voor, dat tekst als zwarte tekens op een 
lichte achtergrond werd geprojekteerd. POKE 50,127 zorgde 
voor knipperende tekens en POKE 50,255 maakte, dat de 
tekens weer "normaal" wit-op-zwart werden gezet. Adres 
50, $32, draagt er dus aan bij, dat de output van 
karakters "gemaskeerd" wordt tot normale, inverse en 
knipperende tekens. De APPLE II bezit mede daardoor een 
eigenaardige ASCII Screen Code, waardoor het mogelijk is, 
dat zowel CHR$(31),CHR$(71) en CHR$(177) het cijfer 1 
voorstellen. 

Het "normale" ASCII Screen alfabet van de APPLE omvat 
de ASCII code 160 t/m 208. Adres $32 staat dan op $FF. 

Hoe krijgen we nu een letter in het TEXT-venster. 

Keer eerst even terug naar Applesoft Basic. Wanneer we de 
juiste ASCII-waarde naar de juiste geheugenp 1 aats POKEn, 
dan volgt daaruit een karakterafbee 1ding op een berekende 
plaats. Logisch, maar zo op het eerste gezicht wat 
moei1ij k.... 

110 POKE 1024,1 93:POKE 1025,194:POKE 1 026,1 95 

J20 POKE 1064,1 93:P0KE1065,1 94:P0KE1 066,1 95 

RUN 
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0 $00 

























1 $01 

























2 $02 

3 $03 

4 $04 

5 $05 

6 $06 

7 $07 

8 $08 

9 $09 

10 $0A 

11 $0B 

12 $0C 

13 $0D 

14 $0E 

15 $0F 

16 $10 

17 $11 

18 $12 

19 $13 

20 $14 

21 $15 

22 $16 

23 $17 

24 $18 

25 $19 

26 $1A 

27 $1B 

28 $1C 

29 $1D 

30 $1E 

31 $1F 

32 $20 

33 $21 

34 $22 

35 $23 

36 $24 

37 $25 

38 $26 

39 $27 
























































































































































































































































































































































































































































































































































































































































































































































































































































































































Map of the Text Screen 
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Tweemaal het A,B,C. En op twee verschi11ende regels. 

Om inzicht te krijgen in de schermbeschrijving door de 
APPLE II maken we een nieuw programma. 

NEW 

HOME 

]10 FOR X = 1024 TO 2047 
20 POKE X,194 
30 NEXT X 
RUN 


Een leerzame ervaring. Maar om dit vanuit de monitor te 
doen, komt er nog iets anders kijken. Wanneer we adres 
$400 met de hand de hex-waarde van een "B" geven, ofwel 
$C2, en terugkeren naar Basic, zien we geen 
karakteroutput. Kortom: we zullen in de monitor een apart 
programma moeten schrijven, dat daarvoor zorgt. Zijn we 
via een CALL-151 in de monitor (*=prompt), dan kunnen we 
een aantal machinetaal instrukties opgeven, die 
karakteroutput mogelijk maken. De lokaties $300 tot $3EF 
zijn zeer geschikt voor korte machinetaal programma's. Je 
zult even moeten wennen aan de typische 6502-instrukties. 
Laten we het eens proberen. 


*300:20 58 FC 
303 : A9 C2 
305:80 00 04 
308:60 


JUMP naar monitorroutine FC58 
Laadt accumulator met "B" 
Store/bewaar "B" op adres $400 
Return naar operating system 


Om dit programma te laten werken, geef je het 

monitorcommando voor programmastart: (startadres)G. 

Hier: 300G. 

In een flits wordt het scherm schoongeveegd ($FCb8, 
CALL-936 weet je nog), en wordt de B links boven 
afgebeeld. Het begrip "accumulator" heeft betrekking op 
de bouw en werking van de 6502-chip. Deze processor voert 
rekenkundige en logische bewerkingen uit door tussenkomst 
van de accumulator. Een soort geheugenadres, een 
register, dat veelvuldig door de 6502 wordt gebruikt. De 
"accu" kan 1 byte met gegevens (data, of een instruktie) 
bevatten. Omdat dit voor de verwerking van veel gegevens 
wat weinig is, beschikt de 6502 tevens over een X en een 
Y register. Deze registers worden vaak als "teller" 
gebruikt en ze kunnen dan als "index" worden aangewend 
voor het bijhouden van uitgebreide "loops" etc. 

De wijze, waarop machinetaal instructies kunnen worden 
doorgespeeId naar de 6502 (zie je dat we het woord 
"APPLE" nu opeens kunnen vergeten), wordt op een 
bijzondere manier benoemd. De meest voorkomende vormen 
zijn de z.g. impliciete, immediate, absolute en zero page 
adressering. Een impliciete instructie is de RTS, met 
Opcode (operatie code) 60. De STA (store in accumulator) 
instructie, met Opcode 8D, geeft het absolute adres, 
waarin data moet worden bewaard. LDA (laadt accumulator) 
wordt onmiddellijk gevolgd door de data; immediate 
adressering dus. 

Dit is zeer globaal de werking van de 6502 processor en 
hangt ten nauwste samen met de werking van de monitor. 
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Wanneer je direkt na het activeren van de monitor een I 
tikt, ontstaat een inverse karakteroutput. Een N herstelt 
deze mode. 

adresT trace het programma vanaf adres tot BRK commando 
adresS single step door het programma; telkens S return 
ingeven voor volgende stap. 

De volgende oefening behelst het oproepen van een 
monitorroutine, die het toetsenbord leest, een ingebouwde 
routine, die het teken weergeeft en een routine, die de 
ASCII-waarde afbeeldt. Het is een oefening, die 
afkomstig is uit het leuke boek van Don en Kurt Inman 
"APPLE MACHINE LANGUAGE". 


*300 :A2 00 
:20 58 FC 
:20 35 FC 
:8D 40 03 
:20 ED FD 
:A9 AO 
:20 ED FD 
:A9 AO 
:20 ED FD 
: AD 40 03 
:20 DA FD 
:A9 8D 
:20 ED FD 
: E8 

: EO 1 A 
: DO DD 


: 60 


zet het X-register op 0 
clear het beeldscherm-HOME 
JSR naar leesroutine keyboard 
STA toets op adres $340 (zie lsb/msb!) 
JSR naar scherm-printroutine COUT 
LDA laadt accu met A0=spatie 
druk hem ook af 
LDA met nog een A0=spatie 

vooruit maar - druk hem af 
LDA met toets vanuit adres $340 
JSR naar ASCII-print routine 
LDA met waarde voor Return $8D 
voer de Return uit 

INX ofwel : X = X+1 increment X-register 
CPX compair X, vergelijk X met 26 (dec) 
indien niet gelijk dan 35 stappen terug 
(FF-DD) 

RTS return from subroutine 


*300G 


Hiermee is het mogelijk het hele alfabet in te lezen en 
de ASC11-waarden ervan te bekijken. 

Een bijzonder adres is $3F8. Hier is plaats voor een 
JMP-instruktie, die verwijzen kan naar een machinetaal 
routine, die jezelf hebt gespec i ficeerd . Bijv. 

$3 F8 :4 C DO 03 

Door nu CTRL-Y te tikken, dus CTRL-toets tegelijk met de 
y-toets indrukken, spring je via $3F8 naar monitorroutine 
$ 3 DO, die ervoor zorgt, dat je in Applesoft terugkomt. 
Gemakkelijk en praktisch. 

Nu we toch in Applesoft zijn, kunnen we proberen ons 
machinetaal programma, dat we net geassembleerd hebben, 
te gebruiken. 

Hoe gaat dat ook alweer ? 0 ja, met de CALL instruktie. 

Dus CALL768 (return). En uiteindelijk kom je in Basic 
terug via de RTS. 
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5. MINI-ASSEMBLER 


Indien je een APPLE II in de standaardconfiguratie hebt, 
dus met Integer Basic in ROM en een Applesoftkaart, dan 
ben je goed af. Met het Integer Basic komt nml. een 
Mini-Assemb1er mee, die je het ongemak van het 
hand-assembleren kan besparen. Degenen, die een APPLE II 
PLUS, of EURAPPLE, bezitten, zullen wat extra hard- of 
software nodig hebben. Een Integer ROM kaart, een Language 
kaart of een geschikt Integer Software Programma zijn ook 
voldoende. We gaan ervan uit, dat de mini-assembler in ROM 
aanwezig is. Het entry-point van de Mini-Assembler is 
$F666 . 

Dus tikken we in de monitor *F666G. De prompt wordt nu 
een uitroepteken (!). In Basic voldoet een CALL-2458 ook. 

Je kunt verder elk monitorcommando uitvoeren, mits het 
wordt voorafgegaan door een $-teken. 

Ontstaat een tikfout, dan signaleert de Mini-Assembler 
dit direkt en volgt een foutmelding ('biep') en een caret 
onder de fout ("). 

De Mini-Assembler herinnert zich maar 1 ding: de 
programmate11er. Het is daarom nodig eerst en vooral het 
adres in te tikken, waar je programma zal moeten 
beginnen. Tik het in en sluit het adres af met een 
dubbele punt (:). Hierna mag de instructiecode worden 
opgegeven in de vorm van een "mnemonic", gevolgd door een 
spatie. Tenslotte volgt de operand van de instructie. Is 
dit klaar, dan geef je een tikje op de Returntoets. 

Hee, da's mooi .... 

1300 : LDX #$02 (return ) 

0300- A2 02 LDX #$02 

De assembler vertaalt de input onmiddellijk tot een 
geassembleerde regel. Probeer het voorafgaande programma 
met de Mini-Assembler te programmeren. Omdat gebleken is, 
dat maar weinigen serieus met de Mini-Assembler werken, 
zal hier niet uitgebreid bij de functie worden 
stilgestaan. De adresseringswijze is als voor een 6502 
processor: impliciet, immediate, absoluut, zero-page, 
relatief, indirect geindexeerd, indirect, en indirect 
gena i ndexeerd. 

Hier volgt een oefening, die geluiden voortbrengt, 
wanneer met de game-paddles (spreek uit: geem pedduls) 
wordt gemanipu1eerd. 
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! 1 DOO : LDX #$00 
spatie, dan 
! JSR FBIE 
! STY 1CFF 
! I NX 

! JSR FB1E (lees paddle-monitorroutine) 

! LDA C030 (speaker) 

! DEC 1CFF (waarde van de paddlestand) 

! BNE 1 DOC 

! LDA C030 

! INY 

! BNE 1D14 
! JMP 1DOO 


Geef nu $ 1 DO0L om het programma te listen en kijk het na. 
Dat ziet er heel anders uit, dan in de monitor, nietwaar 
Met CALL7424 of een 1D00G werkt het programma. Om te 
stoppen kun je het beste Reset indrukken. Probeer er eens 
een ander einde aan te maken. BSAVE het programma. Om het 
op een cassette op te slaan, kun je het beste in de 
monitor gaan (reset, of $FF69G). 

Tik het begin van het programma in: * 1 DO0 gevolgd door 
een punt en daarna het eindadres van het programma. 

Flierna volgt een W voor Write, ofwel : schrijf naar de 
cassette. 

*1D00.1D1CW en wacht met Return tot de cassette opneemt. 
Druk dan eerst op de Returntoets. Voor het teruglezen van 
de cassette tik je eerst het begin en eindadres in, maar 
gevolgd door een R. 

* 1 DO0.1D1CR. Start de recorder (play) en tik return. 


Step en Trace commando's zijn mogelijk. 


Het wijzigen van de 6502 registers gaat als volgt: 

De registers kunnen slechts in de gedisplayde volgorde 
worden gewijzigd. Dus A,X,Y,P, en S. Als er een ander 
dan het A register (de accu) moet worden veranderd, dan 
moet de inhoud van de voorafgaande registers worden 
overgenomen. CTRL-E zet de registers open. 

Zijn de registers "open", dan wijzig je bijv. P als volgt 

A = 3C X = FF Y =00 P = 47 S = F4 

tik: :3C FF 00 32 (return) 





6502 MICROPROCESSOR INSTRUCTIONS 


ADC 

Add Memory to Accumulator with 
Carry 

AND 

“AND” Memory with Accumulator 

ASL 

Shift Left One Bit (Memory or 
Accumulator) 

BCC 

Branch on Carry Clear 

BCS 

Branch on Carry Set 

BEQ 

Branch on Result Zero 

BIT 

Test Bits in Memory with 

Accumulator 

BMI 

Branch on Result Minus 

BNE 

Branch on Result not Zero 

BPL 

Branch on Result Plus 

BRK 

Force Break 

BVC 

Branch on Overflow Clear 

BVS 

Branch on Overflow Set 

CLC 

Clear Carry Flag 

CLD 

Clear Decimal Mode 

CLI 

Clear Interrupt Disable Bit 

CLV 

Clear Overflow Flag 

CMP 

Compare Memory and Accumulator 

CPX 

Compare Memory and Index X 

CPY 

Compare Memory and Index Y 

DEC 

Decrement Memory by One 

DEX 

Decrement Index X by One 

DEY 

Decrement Index Y by One 

EOR 

“Exclusive-Or" Memory with 
Accumulator 

INC 

Increment Memory by One 

INX 

Increment Index X by One 

INY 

increment Index Y by One 

JMP 

Jump to New Location 

JSR 

Jump to New Location Saving 
Return Address 


LDA Load Accumulator with Memory 

LDX Load Index X with Memory 

LDY Load Index Y with Memory 

LSR Shift Right one Bit (Memory or 

Accumulator) 

NOP No Operation 

ORA "OR" Memory with Accumulator 

PHA Push Accumulator on Stack 

PHP Push Processor Status on Stack 

PLA Pull Accumulator from Stack 

PLP Pull Processor Status from Stack 

ROL Rotate One Bit Left (Memory or 

Accumulator) 

ROR Rotate One Bit Right (Memory or 
Accumulator) 

RTI Return from Interrupt 

RTS Return from Subroutine 

SBC Subtract Memory from Accumulator 
with Borrow 
SEC Set Carry Flag 

SED Set Decimal Mode 

SEI Set Interrupt Disable Status 

STA Store Accumulator in Memory 

STX Store Index X in Memory 

STY Store Index Y in Memory 

TAX Transfer Accumulator to Index X 
TAY Transfer Accumulator to Index Y 
TSX Transfer Stack Pointer to Index X 
TXA Transfer Index X to Accumulator 
TXS Transfer Index X to Stack Pointer 
TYA Transfer Index Y to Accumulator 
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THE FOLLOWING NOTATION 
APPLIES TO THIS SUMMARY: 


A Accumulator 

X. Y Index Registers 
M Memory 

C Borrow 

P Processor Status Register 

S Stack Pointer 

V Change 

— No Change 

♦ Add 

A Logical AND 

Subtract 

V Logical Exclusive Or 

♦ Transler From Stack 

( Transfer To Stack 

-► Transfer To 

♦ Transfer To 

V Logical OR 

PC Program Counter 

PCH Program Counter High 

PCL Program Counter Low 

OPER Operand 

♦ Immediate Addressing Mode 


FIGURE 1 ASL-SHIFT LEFT ONE BIT OPERATION 



FIGURE 2 ROTATE ONE BIT LEFT (MEMORY 
OR ACCUMULATOR) 


M OR A 



7 

6 

5 

4 

3 

2 

1 

0 


c 

J 


FIGURE 3 



NOTE 1: BIT - TEST BITS 

Bit 6 and 7 are transferred to the status register If the 
result of A A M is zero then Z=1, otherwise Z=0. 


PROGRAMMING MODEL 


7 0 




r 

A 

| 

ACCUMULATOR 



7 


0 




1 

Y 

1 

INDEX REGISTER Y 



7 


0 




1 

X 

“ 1 

INDEX REGISTER X 

15 


7 


0 


0 

PCH 

~r 

PCL 

1 

PROGRAM COUNTER 



7 


0 




Rtt 

S 

1 

STACK POINTER 



7 


0 




0 

V 1 B 1°1 ; 

00 

PROCESSOR STATUS REGISTER. 


CARRY 

ZERO 

INTERRUPT DISABLE 
DECIMAL MODE 
BREAK COMMAND 
OVERFLOW 
NEGATIVE 
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DEY 

Decrement index Y 
by one 

□EX 

Decrement index X 
by one 

DEC 

Decrement memory 
by one 

CPY 

Compare memory and 
index Y 

CPX 

Compare memory and 
index X 

CMP 

Compare memory and 
accumulator 

CLV 

Clear overflow flag 

CLI 

CLD 

Clear decimal mode 

CLC 

Clear carry flag 

BVS 

Branch on overflow set 

Name 

Description 

-< 

1 

T 

-c 

X 

1 

I 

Z 

1 

T 

z 

-< 

1 

z 

X 

1 

Z 

A - M 

O 

1 

c 

0 

i 

0 

0 

0 

\ 

0 

Branch on V=1 

Operation 

Implied 

Implied 

Zero Page 

Zero Page.X 
Absolute 
Absolute.X 

Immediate 

Zero Page 
Absolute 

Immediate 

Zero Page 
Absolute 

Immediate 

Zero Page 

Zero Page, X 
Absolute 
Absolute.X 
Absolute.Y 
(Indirect,X) 
(Indirect),Y 

Implied 

Implied 

Implied 

Implied 

1 

i Relative 

! Addressing 

Mode 

DEY 

DEX 

DEC Oper 

DEC Oper.X 

DEC Oper 

DEC Oper.X 

CPY #Oper 

CPY Oper 

CPY Oper 

CPX »Oper 

CPX Oper 

CPX Oper 

CMP #Oper 

CMP Oper 

CMP Oper.X 
CMP Oper 

CMP Oper.X 
CMP Oper.Y 
CMP (Oper.X) 
CMP (Oper).Y 

CLV 

CLI 

CLD 

CLC 

BVS Oper 

Assembly 

Language 

Form 

g 

CA 

OOOO 
m m CD 0 

000 

0 -u 0 

m m m 

0 a. 0 

00000000 

-‘-'IOOOVUMD 
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CD 
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00 
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"P" Status Reg 

N Z C 1 0 V | 




8-16 


























































LDY 

Load index Y 

with memory 

LDX 

Load index X 

with memory 

LOA 

Load accumulator 

with memory 

JSR 

Jump to new location 

saving return address 

JMP 

Jump to new location 

INY 

Increment index Y by one 

INX 

Increment index X by one 

INC 

Increment memory 

by one 

EOR 

"Exclusive-Or' memory j 
with accumulator 

| ! 

Nimi Operation Addressing 

Description j ' Mode 

£ 

1 

-< 

£ 

\ 

X 

£ 

1 

> 

33 33 3 

o o V 
lt>!£ 

* r 

33 

X r- 

33 33 

O O 

TT 

X 1- 

-< 

T 

-< 

X 

r 

X 

£ 

T 

£ 

i 

A V M -»A 1 Immediate 

; Zero Page 

1 Zero Page.X 
| Absolute 
| Absolute X 
j Absolute.Y 
; (Indirect.X) 
j (Indirect).Y 

Immediate 

Zero Page 

Zero Page.X 

Absolute 

Absolute.X 

Immediate 

Zero Page 

Zero Page.Y 

Absolute 

Absolute.Y 

Immediate 

Zero Page 

Zero Page.X 

Absolute 

Absolute.X 

Absolute.Y 

(Indirect.X) 

(Indirect).Y 

Absolute 

Absolute 

Indirect 

Implied 

Implied 

Zero Page 

Zero Page.X 
Absolute 
Absolute.X 

LDY #Oper 

LDY Oper 

LDY Oper.X 

LDY Oper 

LDY Oper.X 

r—r*r—r"f— 
o o o o o 

X X X X X 

o o o o o 

O O O O O 

re re re re re 

'■< •< 

r~ r~ r~ r— t— r— r— r~ 
OOOOOOOO 
>>>>>>>> 

SqOOOOOO 

ir 1 ir> -O T3 -O 33 -D -O 

“ C -< x X 

-<Z5 

JSR Oper 

JMP Oper 

JMP (Oper) 

INY 

INX 

INC Oper 

INC Oper.X 

INC Oper 

INC Oper.X 

EOR «Oper 

EOR Oper 

EOR Oper.X 

EOR Oper 

EOR Oper.X 

EOR Oper.Y 

EOR (Oper.X) 
EOR (Oper).Y 

Assembly 

Language 

Form 

OD > CD > > 
OOkkO 

03 > 03 > > 
mmoiotN) 

OD>a303>OD>> 

8 


2 

m 

CD 

jtjm jm 



WWW WM 

W CO ro M M 

rorowwwrowro 

CO 

CO CO 

- 

- 

co to ro n> 

rorowojwrororo 

S p 

/ 

< 

< 

, 

1 


/ 

<. 

/ 

w 3J 

/ 

< 

< 

1 

1 



✓ 

< 

/ 

o c 

i 

1 


1 

1 

1 

I 

1 

1 


1 

~ 1 


1 

1 

1 

1 

l 

1 

1 














Z z 


> > INI INI > 
o-cr»2o 
S S 3 O 2 

S 

ro re to to — 
re re &> 


33 33 3? 33 30 
O O O O O 
3D 33 33 33 33 

O O O O > 
D D D D 


rrl o> 8? > 


WWMNJ- 


<- 


X „ CJ Ol i 


O O O O > 

-OO-OO 
re re re re 




I 


If- 


f= C 

52. B 
ST 8 

li 


O 3 t. 

a a (/ - 

_ ;■ o o o 1 
c c i 


o o 3 

X X ^ w w ~ 
. re re re to to &> 
-< >5 x x * " » 




oooooooo 

33333333333J333J 

>>>>>>>> 


•2 5 2 
•—• Zt -< X X 


»2ioo8588 


MMUUWMMN) 


< 

I 


£ « 
c z 
3 - 


(/) CO 03 C/3 C/3 


o o o o > 




U> CJ M M - 


< 


C? 
7,3 S 


INI CO 

r» S 
— c 
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TSX 

Transfer stack pointer 

to index X 

TAY 

Transfer accumulator 

to index Y 

TAX 

Transfer accumulator 

to index X 

STY 

Store index Y in memory 

STX 

Store index X in memory 

STA 

Store accumulator 

in memory 

SEI 

Set interrupt disable 

status 

SED 

Set decimal mode 

SEC 

Set carry flag 

SBC 

Subtract memory from 

accumulator with borrow 

RTS 

Return from subroutine 

RTI 

t Return from interrupt 

Name 

Description 

C/l 

1 

X 

> 

-< 

> 

* 

X 

< 

* 

£ 

X 

2 

> 

2 

i 

T 

□ 

T 

o 

> 

2 

o| 

> 

3 

s 

T 

o 

-a 

Operation 

Implied 

Implied 

Implied 

Zero Page 

Zero Page.X 

Absolute 

Zero Page 

Zero Page.Y 

Absolute 

Zero Page 

Zero Page.X 

Absolute 

Absolute.X 

Absolute.Y 

(Indirect.X) 

(indirect).Y 

Implied 

Implied 

Implied 

Immediate 

Zero Page 

Zero Page.X 
Absolute 
Absolute.X 
Absolute.Y 
(Indirect.X) 
(Indirect).Y 

Implied 

Implied 

Addressing 

Mode 

TSX 

TAY 

TAX 

STY Oper 

STY Oper.X 

STY Oper 

STX Oper 

STX Oper.Y 

STX Oper 

STA Oper 

STA Oper.X 

STA Oper 

STA Oper.X 

STA Oper.Y 

STA (Oper.X) 

STA (Oper).Y 

SEI 

SEO 

SEC 

c/>cocnc/>c/></></>(/> 

OODOroCDCDCOCDaO 

oooooooo 

2200 o o o o 

’ Z* ■< X X 
-<c 

SiU 

RTI 

Assembly 

Language 

Form 

BA 

A8 

AA 

822 

8SS 

2 2i88S«8 


-n 

OD 

£ 

-* —mooouumo 


£ 

HEX 

OP 

Code 

- 

- 

- 

to rs» n» 

to ro ro 

NMUUUMIV} 

- 

- 

- 

rorocoojcorororo 

- 

- 

No. 

Bytes 

| 

i 

i 

£ 

1 

1 

l 

' 

<- 

< 

i 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

I 

I 

T 

i 

1 

1 

1 

1 

i 

T 

i 

i 

< 

< 

< 

1 

X 

i 

i 

1 

I 

i 

i 

From Stack 

X ** 

~ S3 

n “ 

-i 


z 

C/3 

H 

33 

C 

o 

H 

o 

z 

o 

o 

o 

m 

03 
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57 — NOP 86 — STX — Zero Page 

Immediate 58 — CLI 87 — NOP 

Accumulator 59 — EOR — Absolute, Y 88 — DEY 


.I I I I I I I I I I I I i i l l I I I I I I I I I 


I | | | I I I I I I I I I I I I I I I I I I 
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I 


o o 
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Q) 03 
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c c o 
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I I 
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cn .tk. 

I I 

CO CO 


U M -■ 5 71 


I I I 


I I I 

Z Z CO 
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X ® 


3 X X 
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CD 

CD 

CD 

03 
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C/l 
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M 
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1 

o 

| 
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1 
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1 i 

o 

CD 
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| 

OD 

| 

| 

CT) 
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I 
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| 
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o 

1 
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O 

O 
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> 

to 

1 
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J*. 

o 

O 

z 

O 

O 
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z 

z 
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Z 
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1 
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1 

□ 
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z 
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1 

o 

1 

z 

1 
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1 

O 

1 

z 

1 

r* 
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1 

z 

1 
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1 
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o 

1 

z 
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r- 
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r* 
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o 
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HEX OPERATION CODES 



F 5 9 0: 

E9 

81 

F502: 

4 A 


F503: 

DO 

14 

F505: 

A4 

3F 

F507: 

A6 

3f; 

F509 : 

DO 

01 

F503: 

88 


F50C: 

CA 


F50D: 

8A 


F 5 0 E : 

18 


F50F: 

E5 

3A 

F511: 

85 

3E 

F513: 

10 

01 

F515: 

C8 


F516: 

98 



APPLE-II 

'.1INI-AS5EW3LFR 

COPYRIGHT 1977 FY 
APPLE COMPUTF* INC. 

ALL RIGHTS RESERVED 

S. VJOZNIAK 
A. 3AUM 


TITLE " 

APPLE-II MINI 

FOR A AT 

EPZ 

$ 2 E 

LENGTH 

EPZ 

$ 2 F 

140 DE 

EPZ 

$ 3 1 

PROF PT 

EPZ 

$33 

YS A V 

EPZ 

$34 

Tj 

EPZ 

$35 

PCL 

EPZ 

$ 3 A 

PCM 

EPZ 

S 3 F 

A1H 

EPZ 

S 3 ^ 

A2L 

EPZ 

$3E 

MW 

EPZ 

$3 F 

A 4 L. 

EPZ 

$42 

A 4U 

EPZ 

$43 

FMT 

EPZ 

$44 

IN 

L’QU 

$ 2 00 

IMSDS2 

F°U 

$F8F E 

INS T0 3 F 

EOU 

$ F 8 0 0 

PR3L2 

EOU 

S F 9 4 A 

PCADJ 

EOU 

$ F 9 5 3 

CHARI 

EOU 

9F9B4 

CHAR 2 

ECU 

SF9SA 

AN LI'L 

EOU 

SF9C0 

*NE.4P 

EOU 

SFAOO 

CUF.SU P 

EOU 

SFC1A 

GETLNZ 

EOU 

> F D 6 7 

COUT 

ECU 

SFOED 

A LI 

EOU 

SFEOO 

A1PCLP 

EOU 

$ F f 7 b 

FELL 

EOU 

? F F 3 a 

GETNUN 

EOU 

$ F F A 7 

TOSU 71 

EOU 

$FFP :7 

Z/'OOE 

EOU 

$ FEC7 

CM PT'DL 

LOU 

$F FCC 


ORC 

$ F 5 0 0 

PEL 

SEC 

i* S 81 


LS P 



ETC 

i ^n3 


LDY 

A 2.: 


L rv 

A2t 


RNE 

DFY 

REL2 

REL2 

DEX 

TXA 

CLC 



SBC 

PCL 


STA 

A2L 


BPL 
I NY 

PEL 3 

REL3 

TYA 



ASSEMBLER” 


IS 7 CO 'PATIFLE 
Cllrl HEl-ATIVF ’ODE? 
40. 

I .'LF DEC RE °' : T 

FORM ADDR-PC-2 
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F517: 

E5 

33 



SBC 

PCH 


F519: 

DO 

6B 


ERR3 

BNE 

ERR 

ERROR IF >1-BYTE BRANCH 

F51B: 

A4 

2F 


FINDOP 

LDY 

LENGTH 


F51D: 

B9 

3D 

00 

FND0P2 

LDA 

AlH , Y 

MOVE INST TO (PC) 

F 520: 

91 

3 A 



STA 

(PCL),Y 


F 5 2 2: 

88 




DEY 



F523: 

10 

F8 



BPL 

FNDOP2 


F525: 

20 

1A 

FC 


JSR 

CURSUP 


F528: 

20 

1A 

FC 


JSP 

CURSUP 

RESTORE CURSOR 

F52B: 

20 

DO 

F8 


JSR 

INSTDSP 

TYPE FORMATTED LINE 

F52E: 

20 

53 

F9 


JSR 

PCADJ 

UPDATE PC 

F531: 

84 

3B 



STY 

PCH 


F533: 

85 

3A 



STA 

PCL 


F535: 

4C 

95 

F5 


J^P 

NXTLINE 

GET NEXT LINE 

F538: 

20 

BE 

FF 

FAKEMON 3 

JSP 

TOSUB 

GO TO DELIM HANDLER 

F53B: 

A4 

34 



LDY 

YSAV 

RESTORE Y-INDEX 

F53D: 

20 

A7 

FF 

FAKEMON 

JSR 

GETNUM 

READ PAPAM 

F540: 

84 

34 



STY 

YSAV 

SAVE Y-INDEX 

F542: 

AO 

17 



LDY 

#$17 

INIT DELIMITER INDEX 

F544: 

88 



FAKEM0N2 

DEY 


CHECK NEXT DELIM 

F54 5: 

30 

4B 



BMI 

PESETZ 

ERR IF UNRECOGNIZED DELIM 

F547: 

D9 

CC 

FF 


CMP 

CHRTBL,Y 

COMPAPF WITH DELIM TABLE 

F54A: 

DO 

F8 



BNE 

FAKEMON2 

NO MATCH 

F54C: 

CO 

15 



CPY 

#$15 

MATCH, IS IT CR? 

F54E: 

DO 

E8 



BNE 

FAKEMON3 

NO, HANDLE IT IN MONITOR 

F550: 

A5 

31 



LDA 

MODE 


F552: 

AO 

00 



LDY 

#$0 


F554: 

C6 

34 



DEC 

YSAV 


F556: 

20 

00 

FE 


JSR 

BL1 

HANDLE CR OUTSIDE MONITOR 

F559: 

4C 

95 

F5 


JMP 

NXTLINE 


F55C: 

A5 

3D 


TRYNEXT 

LDA 

A1H 

GET TRIAL OPCODE 

F55E: 

20 

8E 

F8 


JSR 

INSDS2 

GET FMT+LENGTH FOR OPCODE 

F561: 

AA 




TAX 



F562: 

BD 

00 

FA 


LDA 

MNEMR,X 

GET LOWER MNEMONIC BYTE 

F565: 

C5 

42 



CMP 

A4L 

MATCH? 

F567: 

DO 

13 



BNE 

NEXTOP 

NO, TRY NEXT OPCODE 

F569: 

BD 

CO 

F9 


LDA 

MNEML,X 

GET UPPER MNEMONIC BYTE 

F56C: 

C5 

43 



CMP 

A4H 

MATCH? 

F56E: 

DO 

OC 



BNE 

NEXTOP 

NO, TRY NEXT OPCODE. 

F570: 

A5 

44 



LDA 

FMT 


F572: 

A4 

2E 



LDY 

FORMAT 

GET TRIAL FORMAT 

F574 : 

CO 

9D 



CPY 

# $9D 

TRIAL FORMAT RELATIVE? 

F576: 

FO 

88 



BEQ 

REL 

YES. 

F578: 

C5 

2E 


NREL 

CMP 

FORMAT 

SAME FORMAT? 

F57A: 

FO 

9F 



BEQ 

FINDOP 

YES. 

F57C: 

C6 

3D 


NEXTOP 

DEC 

A1H 

NO, TRY NEXT OPCODE 

F57E: 

DO 

DC 



BNE 

TRYNEXT 


F580: 

E6 

44 



INC 

FMT 

NO MORE, TRY WITH LEN=2 

F582: 

C6 

35 



DEC 

L 

WAS L-2 ALREADY? 

F584: 

FO 

D6 



BEQ 

TRYNEXT 

NO. 

F586: 

A4 

34 


ERR 

LDY 

YSAV 

YES, UNRECOGNIZED INST. 

F588: 

98 



ERR2 

TYA 



F589: 

AA 




TAX 



F58A: 

20 

4A 

F9 


JSR 

PRBL2 

PRINT ** UNDER LAST READ 

F58D: 

A9 

DE 



LDA 

#$DE 

CHAR TO INDICATE ERROR 

F58F: 

20 

ED 

FD 


JSR 

COUT 

POSITION. 

F592: 

20 

3A 

FF 

RESETZ 

JSR 

BELL 


F595: 

A9 

Al 


NXTLINE 

LDA 

# $ Al 

' ! ' 

F597: 

85 

33 



STA 

PROMPT 

INITIALIZE PROMPT 

F599: 

20 

67 

FD 


JSR 

GETLNZ 

GET LINE. 

F59C: 

20 

C7 

FF 


JSR 

ZMODE 

INIT SCREEN STUFF 

F59F: 

AD 

00 

02 


LDA 

IN 

GET CHAR 

F5A2: 

C9 

AO 



CMP 

#$A0 

ASCII BLANK? 

F5A4: 

FO 

13 


9 

BEO 

SPACE 

YES 

F5A6: 

C8 




INY 



F5A7: 

C9 

A4 



CMP 

#$A4 

ASCII '$' IN COL 1? 

F5A9: 

FO 

92 



BEQ 

FAKEMON 

YES, SIMULATE MONITOR 

F5AB: 

88 




DEY 


NO, BACKUP A CHAR 

F5AC: 

20 

A7 

FF 


JSP 

GETNUM 

GET A NUMBER 

F5AF: 

C9 

93 



CMP 

# S93 

' : ’ TERMINATOR? 

F5B1: 

DO 

D5 


ERR4 

BMI' 

SFR2 

NO, ERR. 

F5B3: 

8A 




TXA 



F5B4 : 

FO 

D2 



BEQ 

ERR2 

NO ADR PRECEDING COLON. 

F5B6: 

20 

78 

FE 


JSR 

A1PCLF 

MOVE ADR TO PCL, PCH. 

F5B9: 

A9 

03 


SPACE 

LDA 

*$3 

COUNT OF CHARS IN MNEMONIC 

F5BB: 

85 

3D 



STA 

AlH 


F5BD: 

20 

34 

F6 

NXTMN 

JSR 

GETNSP 

GET FIRST MNEM CHAR. 

F5C0: 

OA 



NXTM 

ASL 

A 


F5C1: 

E9 

BE 



SBC 

# $BE 

SUBTRACT OFFSET 

F5C3: 

C9 

C 2 



CMP 

# $C2 

LEGAL CHAR? 

F5C 5: 

90 

Cl 



BCC 

ERR2 

NO. 

F5C7: 

OA 




ASL 

A 

COMPRESS-LEFT JUSTIFY 

F5C8: 

OA 




ASL 

A 


F5C9: 

A2 

04 



LDX 

# $ 4 


F5CB: 

OA 



NXTM2 

ASL 

A 

DO 5 TRIPLE WORD SHIFTS 


8-21 



F5CC 

26 

42 



ROL 

A4L 


F5CE 

26 

4 3 



ROL 

A4H 


F5D0 

CA 




DEX 



F5D1 

10 

F8 



8PL 

NXTM2 


F5D3 

C6 

3D 



DEC 

A1H 

DONE WITH 3 CHAPS? 

F5D5 

FO 

F4 



BFO 

NXTM2 

YES, RUT DO 1 MORE SHIFT 

F5D7 

10 

E4 



PPL 

NXT.MN 

NO 

F5D9: A2 

05 


F0PM1 

LDX 

#S5 

5 CHARS IN ADDR MODE 

F5DB 

20 

34 

F6 

FOR,'12 

JSR 

CF.TNSP 

GFT FIRST CHAP OF A DDR 

F5DE: 84 

34 



STY 

YSAV 


F5E0 

DD 

34 

F9 


CMP 

CilARl ,X 

FIRST CHAR MATCH PATTERN? 

F5E 3 

DO 

13 



BN C 

FOP M3 

NO 

F5E5 

20 

34 

Fb 


JSR 

GFTNSP 

YES, GET SECOND CHAR 

F5E8 

DD 

DA 

F9 


CMP 

CP\r»2,X 

matches SECOND HALF? 

F5LE 

FO 

OD 



BFO 

FOR ^ 5 

YES 

F5ED 

bD 

BA 

F9 


IDA 

C.1.W2, X 

NO, IS SECOND HALF ZERO? 

F5F0 

FU 

07 



5EO 

FOP! ’ 4 

YES. 

F5F2 

C9 

A 4 



CMP 

#$M 

NO,SFCJNp HALF OPTIONAL? 

F5F4 

FO 

03 



HFO 

FOPf’4 

* ES. 

F5F6 

A4 

34 



LIT Y 

YSAV 


F5F8 

18 



FOR IS 3 

CLC 


CLEAR PIT-NO MATCH 

F5F9 

88 



FORM 4 

DEY 


HACK UP 1 CHAR 

F5FA 

26 

44 


FORM 5 

ROL 

F/.T 

FORM FORMAT BYTE 

F5FC 

EO 

03 



CPX 

#S3 

TIME TO CHECK FOR ADDR. 

F5FE 

DO 

OD 



BNh 

FOR:'>7 

NO 

F600 

20 

AT 

FF 


JSR 

GETNUM 

YES 

F60 3 

A5 

3F 



LDA 

A2H 


F605 

FO 

01 



BEO 

FORM 6 

HIGH-OPDFR 3YTE ZEPO 

F607 

EH 




INX 


NO, INCP FOR 2-BYTE 

F608 

86 

35 


FORMb 

STX 

L 

STORE LENGTH 

F60A 

A2 

03 



LDX 

#S3 

RELOAD FORMAT INDEX 

FbOC 

86 




DFY 


BACKUP A CHAR 

F60D: 

86 

3D 


FORM 7 

STX 

All! 

SAVE INDEX 

F60F: 

CA 




DEX 


DONE WITH FORMAT CHECK? 

F610: 

10 

C9 



3PL 

FOR:-’2 

NO. 

F612: 

A5 

44 



LDA 

FMT 

YES, PUT LENGTH 

F614 s 

OA 




ASL 

A 

IN LOW PITS 

F 615: 

OA 




ASL 

A 


F616: 

05 

35 



ORA 

L 


F618: 

C9 

20 



CMP 

*$20 


F61A: 

BO 

06 



PCS 

FORM 8 

ADD •$* IF NONZERO LENGTH 

F61C: 

A6 

35 



LDX 

L 

AND DON'T ALREADY HAVE IT 

F61E: 

FO 

02 



BEO 

FORKS 


F620: 

09 

80 



ORA 

#$80 


F622: 

85 

44 


FORMS 

3TA 

FMT 


F624 : 

84 

34 



STY 

YSAV 


F626: 

B9 

00 

02 


LDA 

IN, Y 

GET NEXT NONBLANK 

F629: 

C9 

RB 



CMP 

f $B9 

' ;' START OF COMMENT? 

F62B: 

FO 

04 



BEO 

FORM 9 

YFS 

F62D: 

C9 

8D 



CMP 

# $8D 

CARRIAGE PETURN? 

F62F: 

DO 

80 



BNE 

ERF4 

NO, ERR. 

F631: 

4C 

5C 

F5 

FORM 9 

JMP 

TRYNEXT 


F634: 

B9 

00 

02 

OFTNSP 

LDA 

IN, Y 


F637: 

C8 




INY 



F638: 

C9 

AO 



CMP 

#$A0 

GET NEXT NON BLANK CHAR 

F63A: 

FO 

F8 



BEO 

CETNSP 


F63C: 

60 




RTS 








ORG 

$F6bb 


F666: 

4C 

92 

F5 

MINASH 

JMP 

PESETZ 
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LOCO 

TITLE 

EPZ 

$00 

LOCI 

EPZ 

$01 

WNDLFT 

EPZ 

$20 

WNDWDTH 

EPZ 

$21 

WNDTOP 

EPZ 

$22 

WND3TM 

EPZ 

923 

CH 

EPZ 

$24 

CV 

EPZ 

$25 

GBASL 

EPZ 

$26 

GBASH 

EPZ 

$27 

DASL 

EPZ 

$28 

BASH 

EPZ 

$29 

3AS2L 

EPZ 

S2A 

BA32H 

EPZ 

$2B 

H 2 

EPZ 

$2C 

LMNEM 

EPZ 

$2C 

RTNL 

EPZ 

$2C 

V2 

EPZ 

$ 2D 

RMNEM 

EPZ 

$20 

RTNH 

EPZ 

$2D 

MASK 

EPZ 

$ 2E 

CHKSUM 

EPZ 

S2F, 

FORMAT 

EPZ 

$2E 

LASTIN 

EPZ 

$2F 

LENGTH 

EPZ 

S2F 

SIGN 

EPZ 

$2F 

COLOR 

EPZ 

$30 

MODE 

EPZ 

S 3 1 

INVFLG 

EPZ 

$32 

PROMPT 

EPZ 

$33 

YSAV 

EPZ 

$34 

YSAVl 

EPZ 

$35 

CSWL 

EPZ 

$36 

CSWH 

EPZ 

$37 

KSWL 

EPZ 

$38 

KSWH 

EPZ 

$39 

PCL 

EPZ 

$3A 

PCH 

EPZ 

$3B 

XQT 

EPZ 

$3C 

AIL 

EPZ 

S3C 

A1H 

EPZ 

$ 3D 

A2L 

EPZ 

S3E 

A2H 

EPZ 

$3F 

A3L 

EPZ 

S 4 0 

A3H 

EPZ 

$41 

A4L 

EPZ 

$42 

A4H 

EPZ 

$4 3 

A5L 

EPZ 

$44 

ASH 

EPZ 

$45 


"APPLE II SYSTEM MONITOR 
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ACC 

k y z 

$45 






Xt'hG 

FPZ 

$46 






YKFG 

EPZ 

$47 






STATUS 

EPZ 

$*8 






SPNT 

ep z 

$4 9 






RNL'L 

EPZ 

$ 4 F 






PNDH 

EP? 

S 4 F 






ACL 

EPZ 

$50 






ACM 

Fp 7 

$51 






XlMDL 

EPZ 

$ 52 






XT-lPf! 

EPZ 

$53 






a U XI • 

KP7. 

$54 






AUXH 

FPZ 

$55 






PICr: 

EPZ 

$95 






IN 

EOU 

$ G 2 0 0 






us*adr 

FOU 

S03F8 






HMI 

EOU 

>0 3FR 






IFOLOC 

EOU 

$03Fr 






ICADR 

EOU 

SCG 00 







EOU 

$C000 






KDDSTRP 

ECU 

SC010 






TAPFOUT 

L’F'U 

C C020 






SPKR 

ECU 

SC030 






TXTCLR 

EOU 

SC050 






TXTSET 

EOU 

SC051 






MIXCLP 

ECU 

$C052 






MIXSET 

ECU 

$C0 5 3 






LONSCR 

EOU 

SCO 54 






HISCP 

EOU 

SCO 55 






LORES 

FOU 

SC056 






HIRES 

EOU 

$C0 57 






TAPEIN 

ECU 

$C060 






PADDI.O 

FOU 

$C064 






PTRIG 

EOU 

$C070 






BASIC 

EQU 

$ F 0 0 0 






BASIC2 

EOU 

$F00 3 







OPO 

$F800 

POM START ADDRESS 

F800 

4 A 



PLOT 

LSR 

A 

Y-COOPD/2 

F801 

08 




PHP 


SAVE LSB IN CARRY 

F802 

20 

47 

F6 


JSP 

GBASCALC 

! CALC RASE ADR IN GBASL,H 

F80 5 

28 




PLP 


RESTORE LSB FROM CARRY 

F806 

A9 

OF 



LDA 

#S0F 

MASK S0F IF EVEN 

F808 

90 

02 



BCC 

RTMASK 


F80A 

69 

EO 



ADC 

#$E0 

MASK $F0 IF ODD 

F80C 

85 

2E 


RTMAS\ 

3TA 

MASK 


F80E 

Bl 

26 


PLOT 1 

LDA 

(GBASL), 

i DATA 

FBI 0 

45 

30 



EOR 

COLOR 

XUR COLOR 

F812 

25 

2E 



AND 

MASK 

AND MASK 

F81 4 

51 

26 



EOR 

(GRASL), 

Y XOR DATA 

F816 

91 

26 



STA 

(GBASL), 

Y TO DATA 

F818 

60 




RTS 



F819 

20 

00 

F8 

HLINE 

JSR 

PLOT 

PLOT SOUARE 

F81C s C4 

2C 


HLINF.l 

CPY 

H2 

DONE? 

F81E 

: BO 

11 



RCS 

RTS 1 

YES, RETURN 

F820: 

: C0 




INY 


NO, INCR INDEX (X-COORD) 

F821: 

: 20 

OE 

F 8 


JSR 

PLOT 1 

PLOT NEXT SOUARE 

F824 : 

: 90 

F6 



BCC 

HLINE1 

ALWAYS TAKEN 

F826: 

: 69 

01 


VLINEZ 

ADC 

4 SO 1 

NEXT Y-COORD 

F828: 

: 48 



VLINE 

PH A 


SAVE ON STACK 

F829 : 

: 20 

GO 

F8 


JSP 

PLOT 

PLOT SQUARE 

F82C: 

: 68 




PLA 



F82D; 

: C5 

2D 



CMP 

V2 

DONE? 

F82F! 

: 90 

F5 



BCC 

VLINEZ 

NO,LOOP. 

F8 311 

: 60 



RTS1 

RTS 



F832: 

: AO 

2F 


CLP.SCF 

LPY 

(»$ 2 F 

MAX V, FULL SCRN CLR 

F8 34: 

: DO 

02 



PNG 

CLPSC 2 

ALWAYS TAKEN 

F8 36! 

: AO 

27 


CLRTOP 

LDY 

«$27 

MAX Y, TOP SCRN CLR 

F838: 

: 84 

2D 


CI.PSC2 

STY 

V2 

3TORF AS BOTTOM COORD 





* 

FOP 

VLINE CALLS 

F83A 

AO 

27 



LDY 

#$27 

RIGHTMOST X-COORD (COLUMN) 

F83C 

A9 

00 


CLPSC3 

LDA 

*$0 

TOP COOP.O FOR VLINF CALLS 

F83F 

85 

30 



STA 

COLOR 

CLEAR COLOR (BLACK) 

F840 

20 

28 

F6 


JSP 

VLIMF 

rPAK VLINE 

F8 4 3 

88 




DEY 


NEXT LEFTMOST X-COOPD 

F844 

10 

F6 



HPL 

CLRSC3 

LOOP UNTIL DONE. 

F846 

60 




RTS 



F847 

48 



GBASCALC 

PH A 


FOR INPUT nOODFFGH 

F848 

4A 




LSR 

A 


F84 9 

29 

03 



AND 

* $C 3 


F84B 

09 

04 



OP A 

4 $0 4 

CF JERATE GBASH*00C001FC. 

F84D 

85 

27 



STA 

CRASH 


F84F 

69 




PLA 


AMD ASL=HOFDR000 

F8.50 

29 

18 



AMO 

#$18 


F8 52 

90 

02 



see 

G3CALC 


F854 

69 

7F 



ADC 

#$7F 


F8 56 

85 

26 


G6CALC 

STA 

GHASL 
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F858 

OA 




ASL 

A 


F859 

OA 




AST. 

A 


F8 5A 

05 

26 



ORA 

GB ASL 


F8 5C 

85 

26 



STA 

GPASL 


F85E 

60 




RTS 



F 8 5 F 

A5 

30 


MX'I CO L 

I,DA 

COLOR 

INCREMENT COLOR BY 3 

F8 61 

13 




CLC 



F862 

69 

0 3 



ADC 

4 SO 3 


F864 

29 

OF 


SfiTCOL 

AMC 

FSOF 

SETS COLOR*!7*A MOD 16 

F866 

85 

30 



STA 

COLOR 


F668 

OA 




ASL 

A 

DOTH HALF BYTES OF COLOR EQUAL 

F8 69 

OA 




ASL 

A 


F8 6A 

OA 




ASL 

A 


F86B 

OA 




ASL 

A 


F86C 

05 

30 



ORA 

COLOR 


F86E 

85 

30 



STA 

COLOR 


F870 

60 




RTS 



F871 

4 A 



SCFM 

LSR 

A 

READ SCREEN Y-COOFD/2 

F872 

08 




PH P 


SAVE LS3 (CARRY) 

F873 

20 

47 

F8 


JSR 

GFASCALC 

CALC BASF ADDRESS 

F876 

81 

26 



LDA 

(GFASL) , 

Y GET BYTE 

F878 

28 




PLP 


RESTORE LSF FPOM CARRY 

F879 

90 

04 


SCRN2 

acc 

RTFSK7 

IF EVEN , USE LO H 

F67B 

4 A 




LSR 

A 


F87C 

4 A 




LSR 

A 


F87D 

4 A 




LSR 

A 

SHIFT HIGH HALF BYTE DOWN 

F 8 7 E 

4 A 




LSR 

X 


F87F 

29 

OF 


RTMSKZ 

AMD 

#$0F 

MASK 4-BITS 

F881 

60 




P'TS 



FH 8 2 

A6 

3A 


I MSOS 1 

LDX 

PCL 

PRINT PCL,Ii 

F884 

A4 

38 



LDY 

PC'-' 


F 8 8 6 

2P 

96 

FD 


JSP 

PRYX2 


F889 

20 

4 8 

F9 


JSR 

PR P-t M K 

FOLLOWED 3Y A BLANK 

F88C 

Al 

3 A 



LLA 

(PCL ,7) 

GET OP CODE 

F88E 

A 8 



INSOS 2 

TAY 



F88F 

4 A 




LSR 

/V 

FVET/ODD TEST 

F89'J 

9 0 

09 



acc 

IEVEN 


F892 

6 A 




POP 

A 

BIT 1 TEST 

f 6 9 3 

30 

10 



3CS 

r p p 

XVXXXXll INVALID OP 

F89 5 

C9 

\2 



CMP 

t FA2 


t 897 

Ft) 

OC 



FEO 


OPCODE S39 INVALID 

F899 

29 

87 



AND 

#$S7 

!ASK CITS 

F893 

4 A 



I EVEN 

LSR 

A 

LSB INTO CARRY FOR L/P TEST 

F89C 

A A 




TAX 



F89D 

EG 

6 2 

F9 


LDA 

FMTl,X 

OFT FOR.’'AT INDEX BYTE 

F8A 0 

20 

79 

F8 


JSP 

SCRN2 

P/L H-BY'J’E ON CARRY 

F8A3 

DO 

04 



’NE 

GET Fi.f 


F8A5 

AO 

80 


ESP 

LDY 

#$8C 

SUBSTITUTE $80 FOR INVALID OPS 

F8A7 

A9 

00 



LDA 

t SO 

3FT PRINT FORMAT INDEX TO 0 

F8A9 

AA 



GETFFT 

TAX 



F8AA 

BD 

A 6 

F9 


LLA 

FMT2, X 

INDEX INTO PFINT FORMAT TABLE 

F8AD 

85 

2E 



STA 

FORMAT 

SAVE FOR ADR FIELD FORMATTING 

F8AF 

29 

03 



AND 

#$03 

MASK FOR 2-BIT LENGTH 





* 


(F=1 BYTE 

, 1 = 2 BYTE , 2 = 3 BYTE) 


F8B1 

85 

2F 



STA 

LENGTH 


F8B3 

9 3 




TYA 


OPCODE 

FSB 4 

29 

8F 



AND 

#$8F 

MASK FOP 1XXX1010 TEST 

F8B6 

A A 



TAX 


SAVF IT 

F8B7 

98 




TYA 


OPCODE TO A AGAIN 

F8B8 

A0 

03 



LDY 

#$0 3 


F83A 

E0 

8A 



CPX 

# S8A 


F8BC 

F0 

OB 



BEQ 

MNNDX3 


F8BE 

F8BF 

4 A 
90 

08 


MNNDXl 

LSR 

BCC 

A 

MNNDX3 

FORM INDEX INTO MNEMONIC TABLE 

F8C1 

4A 



LSR 

A 


F8C 2 

4A 



MNNDX2 

LSR 

A 

1) 1XXX1010=>00101XXX 

F8C3 

09 

20 



ORA 

#$20 

2) XXXYYY01 = > 00111XXX 

F8C5 

88 




DEY 


3) XXXYYY10 = > 0011OXXX 

F8C6 

DO 

FA 



BNE 

MNNDX2 

4) XXXYY100=>0010OXXX 

F8C8 

C8 



I NY 


5)XXXXXOOO=>OOOXXXXX 

F8C9 

88 



MNNDX3 

DEY 



F8CA 

DO 

F2 



BNE 

MNNDXl 


F8CC 

60 




RTS 



F8CD 

FF 

FF 

FF 


DFB 

$FF,$FF, 

,$FF 

F8D0 

20 

82 

F8 

INSTDSP 

JSR 

INSDS1 

GEN FMT, LEN BYTES 

F8D3 

48 




PH A 


SAVE MNEMONIC TABLE INDEX 

F8D4 

Bl 

3A 


PRNTOP 

LDA 

(PCL),Y 


F8D6 

20 

DA 

FD 


JSP. 

PRBYTE 


F8D9 

A2 

01 



LDX 

#$01 

PRINT 2 BLANKS 

F8DB 

20 

4A 

F9 

PRNTBL 

JSR 

PRBL2 


F8DE 

C4 

2F 



CPY 

LENGTH 

PRINT INST (1-3 BYTES) 

F8E0 

C8 




INY 


IN A 12 CHR FIELD 

F8E1 

90 

FI 



BCC 

PRNTOP 


F8E3 

A2 

03 



LDX 

#$03 

CHAR COUNT FOR MNEMONIC PRINT 

F8E5 

CO 

04 



CPY 

#$04 







F8E7; 

90 

F2 



BCC 

PRNTEL 

F8E9: 

68 




PLA 

RECOVER MNEMONIC INDEX 

F8EA 

A8 




TAY 


F8EB: 

B9 

CO 

F9 


LDA 

MNEML,Y 

F8EE: 

85 

2C 



STA 

LMNEM FETCH 3-CHAP MNEMONIC 

F8F0 

B9 

00 

FA 


LDA 

MNEMP,Y (PACKED IN 2-BYTES) 

F8F3: 

85 

2D 



STA 

RMNEM 

F8F5: 

A9 

00 


PRMN1 

LDA 

#$00 

F8F7: 

AO 

05 



LDY 

#$05 

F8F9 

06 

2D 


PRMN2 

ASL 

RMNEM SHIFT 5 BITS OF 

F8FB: 

26 

2C 



ROL 

LMNEM CHARACTER INTO A 

F8FD: 

2A 



ROL 

A (CLEARS CARRY) 

F8FE 

88 




DEY 


F8FF 

DO 

F8 



BNE 

PRMN2 

F901 

69 

BF 



ADC 

#$BF ADD "?•' OFFSET 

F903; 

20 

ED 

FD 


JSR 

COUT OUTPUT A CHAR OF MNEM 

F906 

CA 




DEX 

PRMN1 

F907 

DO 

EC 



BNE 

F909. 

20 

48 

F9 


JSR 

PRBLNK OUTPUT 3 BLANKS 

F90C: A4 

2F 



LDY 

LENGTH 

F90E 

A2 

06 



LDX 

*$06 CNT FOR 6 FORMAT BITS 

F910 

EO 

03 


PRADRl 

CPX 

#$03 

F912 

FO 

1C 



BEO 

PRADR5 IF X*3 THEN ADDR. 

F914: 06 

2E 


PRADR2 

ASL 

FORMAT 

F916 

90 

OE 



BCC 

PRADR3 

F918 

BD 

B3 

F9 


LDA 

CHARl-1,X 

F91B 

20 

ED 

FD 


JSR 

COUT 

F91E: BD 

B9 

F9 


LDA 

CHAR2-1,X 

F921 

FO 

03 



BEO 

PRADR3 

F923 

20 

ED 

FD 


JSR 

COUT 

F926 

CA 



PRADR3 

DEX 


F927: DO 

E7 



BNE 

PRADRl 

F929 

60 




RTS 


F92A 

88 



PRADR4 

DEY 


F92B 

30 

E7 



0MI 

PRADR2 

F92D 

20 

DA 

FD 


JSR 

PRBYTE 

F930 

A5 

2E 


PRADR5 

LDA 

FORMAT 

F932 

C9 

E8 



CMP 

#$E8 HANDLE REL ADR MODE 

F934 

B1 

3A 



LDA 

(PCL) , Y SPECIAL (PRINT TARGET, 

F936 

90 

F2 



BCC 

PPADR4 NOT OFFSET) 

F938 

20 

56 

F9 

RKLADP 

JSR 

PCADJ3 

F93B 

AA 




TAX 

PCL,PCH+OFFSET+1 TO A,Y 

F93C 

E8 




INX 


F93D 

DO 

01 



BNE 

PRNTYX +1 TO Y,X 

F93F 

C8 




INY 


F940s 98 



PRNTYX 

TYA 


F941: 

: 20 

DA 

FD 

PRN TAX 

JSR 

PPBYTE OUTPUT TARGET ADR 

F944: 

: 8A 



PRNTX 

TXA 

OF BRANCH AND RETURN 

F945: 

t 4C 

DA 

FD 


JMP 

PPBYTE 

F94 8: 

: A2 

03 


PRBLNK 

LDX 

#$03 BLANK COUNT 

F94A: A9 

AO 


PR3L2 

LDA 

#$A0 LOAD A SPACE 

F94C: 20 

ED 

FD 

PRBL3 

JSR 

COUT ul TPUT A BLANK 

F94F i 

: CA 




DEX 

PRQL2 LOOP UNTIL COUNT*0 

F950: DO 

F8 



BNE 

F952: 

; 60 




RTS 


F953: 

: 38 



PCADJ 

SEC 

0*1-3YTE,1*2-BYTE, 

F954: A5 

2F 


PCADJ2 

LDA 

LENGTH 2*3-BYTE 

F956 

: A4 

3B 


PCADJ3 

LDY 

PCH 

F958 

: AA 




TAX 

TEST DISPLACEMENT SIGN 

F959 

: 10 

01 



BPL 

PCADJ4 (FOR REL BRANCH) 

F95B 

: 88 




DEY 

EXTEND NF.G BY DECR PCH 

F9 5C 

: 65 

3A 


PCADJ 4 

ADC 

PCL 

F95E 

: 90 

01 



BCC 

RTS2 PCL+LENGTH(OR DISPL)+1 TO A 

F960 

: C8 




INY 

CARRY INTO Y (PCH) 

F961 

: 60 



RTS 2 

RTS 





* 

FMTl BYTES: XXXXXXYO INSTRS 





* 

IF 

Y=0 THEN LEFT HALF BYTE 





* 

IF 

THEN RIGHT HALF BYTE 





* 

(X-INDEX) 

F962 s 04 

20 

54 




F965 

: 30 

OD 


FMTl 

DFB 

$04,$20,$54,$30,$0D 

F967 

: 80 

04 

90 




F96A 

: 03 

22 



DFB 

$80,$04,$90,$03,$22 

F96C 

s 54 

33 

OD 



$54,$33,$0D,$80,$04 

F96F 

: 80 

04 



DFB 

F971 

: 90 

04 

20 




F974 

: 54 

33 



DFB 

$90,$04,$20,$54,$33 

F976 

: OD 

80 

04 



$0D,$80,$'»A,$90,$04 

F979I 90 

04 



DFB 

F97B 

: 20 

54 

3B 



$2O,$54,$3B,$0D,$80 

F97E 

: OD 

80 



DFB 

F980 

: 04 

90 

00 




F983 

: 22 

44 



DFB 

$04,$90,$00,$22,$44 

F985: 33 

OD 

C8 



$33,$0D,$C8,$44,$00 

F988: 44 

00 



DFB 
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F98A 

11 

22 

44 




F98D 

33 

OD 



DFB 

$11,S22,$44,$33,$0D 

F98F 

C8 

44 

A9 




F992 

01 

22 



DFB 

$C8,$44,$A9,S01,$22 

F994 

44 

33 

OD 




F997 

80 

04 



DFB 

$44,$33,$0D,$80,S04 

F999 

90 

01 

22 




F99C 

44 

33 



DFB 

$90,$01,$22,$44,$33 

F99E 

OD 

80 

04 




F9A1 

90 




DFB 

$0D,$80,$04,$90 

F9A2 

26 

31 

87 




F9A5 

9A 




DFB 

$26,$31,$P7,$9A ZZXXXY01 INSTR'S 

F9A6 

00 



FMT2 

DFB 

$00 ERR 

F9A7 

21 




DFB 

$21 IMM 

F9A8 

81 




DFB 

$81 Z-PAGE 

F9A9 

82 




DFB 

$82 ABS 

F9AA 

00 




DFB 

$00 IMPLIED 

F9AB 

00 




DFB 

$00 ACCUMULATOR 

F9AC 

59 




DFB 

$59 (ZPAG,X) 

F9AD 

4D 




DFB 

$4 D (ZPAG) ,Y 

F9AE 

91 




DFB 

$91 Z PAG,X 

F9AF 

92 




DFB 

$92 ABS ,X 

F9B0 

86 




DFB 

$86 ABS,Y 

F9B1 

4A 




DFB 

$4A (ABS) 

F9B2 

85 




DFB 

$85 ZPAG,Y 

F9B3 

9D 




DFB 

$9D RELATIVE 

F9B4 

AC 

A9 

AC 





A3 

A8 

A4 

CHAF1 

ASC 

",) ,#($*• 

F9BA 

D9 

00 

D8 




F9BD 

A4 

A4 

00 

CHAR2 

DFB 

$D9,$00,$D8,$A4,SA4,$00 





*CHAR2: 

" Y“ , 

0, M X$S“,0 





* 

MNEML IS OF FORM: 





* 

(A) 

XXXXXOOO 





* 

(B) 

XXXYYl00 





* 

(C) 

1XXX1010 





* 

(D) 

XXXYYY10 





* 

(E) 

XXXYYY01 





* 


(X=INDEX) 

F9C0 

1C 

8A 

1C 




F9C 3 

23 

5D 

8B 

MNEML 

DFB 

$1C,S8A,$1C,$23,$5D,$83 

F9C6 

IB 

Al 

9D 




F9C9 

8A 

ID 

23 


DFB 

$1B,$A1,$9D,$8A,$1D,$23 

F9CC 

9D 

8B 

ID 




F9CF 

Al 

00 

29 


DFB 

$9D,$8B,S1D,$A1,$00,$29 

F9D2 

19 

AE 

69 




F9D5 

A8 

19 

23 


DFB 

$19 ,$AE,$69,$A8,S19,$2 3 

F9D8 

24 

53 

IB 




F9DB 

23 

24 

53 


DFB 

$24,$53,$1B,$23,$24,$53 

F9DE 

19 

Al 



DFB 

$19 , $A1 (A) FORMAT ABOVE 

F9E0 

00 

1A 

5B 




F9E 3 

5B 

A5 

69 


DFB 

$00,$1A,$5B,$5E,$A5,S69 

F9E6 

24 

24 



DFB 

$24,$24 (P) FORMAT 

F9E8 

AE 

AE 

A8 




F9EB 

AD 

29 

00 


DFB 

$AE,$AE,$A8,$AD,$29,$00 

F9EE 

7C 

00 



DFB 

$7C,$00 (C) FORMAT 

F9F0 

15 

9C 

6D 




F9F3 

9C 

A5 

69 


DFB 

$15,$9C,$6D,$9C,$A5,$69 

F9F6 

29 

53 



DFB 

$29, $53 (D) FORMAT 

F9F8 

84 

13 

34 




F9FB 

11 

A5 

69 


DFB 

$84,$13,$34,$11,$A5,$69 

F9FE 

23 

AO 



DFB 

$23,$A0 (E) FORMAT 

FAOO 

D8 

62 

5A 




FA03 

48 

26 

62 

MNEMP 

DFB 

$D8,$62,$5A,$48,$26,$62 

FA06 

94 

88 

54 




FA09 

44 

C8 

54 


DFB 

$94,$88,$54,$44,$C8,$54 

FAOC 

68 

4 4 

E8 




FAOF 

94 

00 

B4 


DFB 

$68,$44,$E8,$94,$0Q,$B4 

FA12 

08 

84 

74 




FA 15 

B4 

28 

6E 


DFB 

$08,$84,$74,$B4,$28,$6E 

FA18 

74 

F4 

CC 




FAlB 

4 A 

72 

F2 


DFB 

$74,$F4,$CC,$4A,$72,$F2 

FA1E 

A4 

8A 



DFB 

$A4,$8A (A) FORMAT 

FA20 

00 

AA 

A2 



$00,$AA,$A2,$A2,$74,$74 

FA23 

A2 

74 

74 


DFB 

FA26 

74 

72 



DFR 

$74,$72 (B) FORMAT 

FA 2 8 

44 

68 

B2 




FA2B 

32 

B2 

00 


DFB 

$44,S68,$B2,$32,$B2,S00 

FA2E 

22 

00 



DFB 

$22,$00 (C) FORMAT 

FA 30 

1A 

1A 

26 




FA33 

26 

72 

72 


DFB 

S1A,$1A,$26,$26,$72,$72 

FA36 

88 

C8 



DFB 

$86 , $C8 (D) FORMAT 

FA38 

C4 

CA 

26 




FA3B 

48 

44 

44 


DFB 

$C4,$CA,$26,$46,$44,$44 

FA3E 

A2 

C8 



DFB 

SA2,$C8 (E) FORMAT 
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FA40: 

FF 

FF 

FF 


OFD 

$FF,$FF, 

$FF 

FA4 3: 

20 

DO 

F8 

STEP 

JSR 

INSTD3P 

DISASSEMBLE ONE INST 

FA46: 

68 




PLA 


AT (PCL,H) 

FA47: 

85 

2C 



STA 

RTML 

ADJUST TO USER 

FA49: 

68 




PLA 


STACK. SAVE 

FA4A: 

85 

2D 



STA 

FTNH 

RTN ADR. 

FA4C: 

A2 

08 



LDX 

#$08 


FA4E: 

BD 

10 

FB 

XCINIT 

L.DA 

INIT9L-1 

,X INIT XEO AREA 

FA51: 

95 

3C 



STA 

XQT, X 


FA53: 

CA 




DEX 



FA54: 

DO 

F8 



PNE 

XOINIT 


FA56: 

A1 

3A 



LDA 

(PCL f X) 

USER OPCODE BYTE 

FA58: 

FO 

42 



BEO 

XBRK 

SPECIAL IF BREAK 

FA5A: 

A4 

2F 



LDY 

LENGTH 

LEN FROM DISASSEMBLY 

FA 56: 

C9 

20 



CMP 

#$20 


FA5E: 

FO 

59 



BEQ 

XJSR 

HANDLE JSR, PTS, JMP, 

FA60: 

C9 

60 



CMP 

# $60 

JMP ( ), PTI SPECIAL 

FA62: 

FO 

45 



BEQ 

XRTS 


FA64: 

C9 

4C 



CMP 

#$4C 


FA66: 

FO 

5C 



SEC 

XJMp 


FA68: 

C9 

6C 



CMP 

#$6C 


FA6A: 

FO 

59 



BEQ 

XJMPAT 


FA6C: 

C9 

40 



CMP 

#$40 


FA6E: 

FO 

35 



BEQ 

XRTI 


FA70: 

29 

IF 



AND 

# $ 1F 


FA72: 

49 

14 



EOR 

# S1 4 


FA74: 

C9 

04 



CMP 

#$04 

COPY USER INST TO XEO AREA 

FA76: 

FO 

02 



BEQ 

XQ2 

WITH TRAILING NOPS 

FA78: 

B1 

3A 


XQ1 

LDA 

(PCL),Y 

CHANGE REL BRANCH 

FA7As 

99 

3C 

00 

XQ2 

STA 

XQTNZ,Y 

DISP TO 4 FOR 

FA7D: 

88 




DEY 


JMP TO BRANCH OR 

FA7E: 

10 

F8 



BPL 

XQ1 

NBRANCH FROM XEQ. 

FA80: 

20 

3F 

FF 


JSP 

RESTORE 

RESTORE USER REG CONTENTS. 

FA8 3: 

4C 

3C 

00 


JMP 

XQTNZ 

XEQ USER OP FROM RAM 

FA86: 

85 

45 


IRQ 

STA 

ACC 

(RETURN TO NBRANCH) 

FA88: 

68 




PLA 



FA89: 

48 




PHA 


**IRQ HANDLER 

FA8A: 

OA 




ASL 

A 


FA8B: 

OA 




ASL 

A 


FA8C: 

OA 




ASL 

A 


FA8D: 

30 

03 



BMI 

BREAK 

TEST FOR BREAK 

FA8F: 

6C 

FE 

03 


JMP 

(IRQLOC) 

USER ROUTINE VECTOR IN RAM 

FA92: 

28 



BREAK 

PLP 



FA93: 

20 

4C 

FF 


JSP 

SAVl 

SAVE REG'S ON BREAK 

FA96: 

68 




PLA 


INCLUDING PC 

FA97: 

85 

3A 



STA 

PCL 


FA99: 

68 




PLA 



FA9A: 

85 

3B 



STA 

PCH 


FA9C: 

20 

82 

F8 

XBRK 

JSR 

INSDS1 

PRINT USER PC. 

FA9F: 

20 

DA 

FA 


JSR 

RGDSP1 

AND RF.G'S 

FAA2: 

4C 

65 

FF 


JMP 

MON 

GO TO MONITOR 

FAA5: 

18 



XRTI 

CLC 



FAA6: 

68 




PLA 


SIMULATE RTI BY EXPECTING 

FAA7: 

85 

48 



STA 

STATUS 

STATUS FROM STACK, THEN RTS 

FA A 9: 

68 



XRTS 

PLA 


PTS SIMULATION 

FAAA: 

85 

3A 



STA 

PCL 

EXTRACT PC FROM STACK 

FAAC: 

68 




PLA 


AND UPDATE PC BY 1 (LEN*0) 

FAAD: 

85 

3B 


PCINC2 

STA 

PCH 


FAAF: 

A5 

2F 


PCINC3 

LDA 

LENGTH 

UPDATE PC BY LEN 

FAB1: 

20 

56 

F9 


JSR 

PCADJ3 


FAB 4: 

84 

3B 



STY 

PCH 


FAB6: 

18 




CLC 



FAB7: 

90 

14 



ecc 

NEV7PCL 


FAB9: 

18 



XJSR 

CLC 



FABA: 

20 

54 

F9 


JSR 

PCADJ2 

UPDATE PC AND PUSH 

FABD: 

AA 




TAX 


ONTO STACK FOR 

FABE: 

98 




TYA 


JSR SIMULATE 

FABF: 

48 




PHA 



FACO: 

8A 




TXA 



FAC1: 

48 




PHA 



FAC 2; 

AO 

02 



LDY 

#$02 


FAC 4: 

18 



XJMP 

CLC 



FAC 5: 

B1 

3A 


XJMPAT 

LDA 

(PCL),Y 


FAC 7 s 

AA 




TAX 


LOAD PC FOR JMP, 

FAC 8: 

88 




l?EY 


(JMP) SIMULATE. 

FAC 9 s 

Bl 

3A 



LDA 

(PCL),Y 


FACBs 

86 

3B 



STX 

PCH 


FACDs 

85 

3A 


NEWPCL 

STA 

PCL 


FACFs 

BO 

F3 



BCS 

XJMP 


FADls 

*5 

2D 


RTNJ'IP 

LDA 

RTNH 


FAD3 s 

48 




PHA 



FAD4 s 

A5 

2C 



LDA 

RTNL 


FAD6 s 

48 




PHA 



FAD7 s 

20 

8E 

FD 

REGDSP 

JSR 

CROUT 

DISPLAY USER REG 

FADAs 

A9 

45 


RGDSP1 

LDA 

#ACC 

CONTENTS WITH 

FADCs 

85 

40 



STA 

A3L 

LABELS 
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FADE 

A9 

00 



LDA 

4ACC/256 


FAEO 

85 

41 



STA 

A3H 


FAE2 

A2 

FB 



LDX 

# $FB 


FAE4 

A9 

AO 


RDSP1 

LDA 

#$A0 


FAE6 

20 

ED 

FD 


JSR 

COUT 


FAE9 

BD 

IE 

FA 


LDA 

RTBL-SFB 

f X 

FAEC 

20 

ED 

FD 


JSR 

COUT 


FAEF 

A9 

BD 



LDA 

# $3D 


FAF1 

20 

ED 

FD 


JSR 

COUT 


FAF4 

B5 

4A 



LDA 

ACC+5,X 


FAF6 

20 

DA 

FD 


JSR 

PRBYTE 


FAF9 

E8 




INX 



FAFA 

30 

E8 



BMI 

RDSP1 


FAFC 

60 




RTS 



FAFD 

18 



BRANCH 

CLC 


BRANCH TAKEN, 

FAFE 

AO 

01 



LDY 

#$01 

ADD LEN+2 TO PC 

FBOO 

Bl 

3A 



LDA 

(PCL) ,Y 


FB02 

20 

56 

F9 


JSR 

PCADJ3 


FB05 

85 

3A 



STA 

PCL 


FB07 

98 




TYA 



FB08 

38 




SEC 



FB09 

BO 

A2 



BCS 

PCINC2 


FBOB 

20 

4A 

FF 

NBPNCH 

JSR 

SAVE 

NORMAL RETURN AFTER 

FBOE 

38 




SEC 


XEQ USER OF 

FBOF 

BO 

9E 



BCS 

PCINC3 

GO UPDATE PC 

FBI 1 

EA 



INITBL 

NOP 



FB12 

EA 




NOP 


DUMMY FILL FOR 

FBI 3 

4C 

OB 

FB 


JMP 

NRRNCH 

XEO AREA 

FB16 

4C 

FD 

FA 


JMP 

BRANCH 


FB19 

Cl 



RTBL 

DFB 

SCI 


FB1A 

D8 




DFB 

$D8 


FBlB 

D9 




DFE 

$D9 


FBlC 

DO 




DFB 

$D0 


FB1D 

D3 




DFB 

$D3 


FB1E 

AD 

70 

CO 

PRF.AD 

LDA 

PTPIG 

TRIGGER PADDLES 

FB21 

AO 

00 



LDY 

#$00 

INIT COUNT 

FB23 

EA 




NOP 


COMPENSATE FOR 1ST COUNT 

FB24 

EA 




NOP 



FB25 

BD 

64 

CO 

PREAD2 

LDA 

PADDLO,X 

COUNT Y^PEG EVERY 

FB28 

10 

04 



BPL 

RTS2D 

12 USEC 

FB2A 

C8 




INY 



FB2B 

DO 

F8 



BNE 

PPEAD2 

EXIT AT 255 MAX 

FB2D 

88 




DEY 



FB2E 

60 



RTS2D 

RTS 



FB2F 

A9 

00 


INIT 

LDA 

#$00 

CLR STATUS FOP DEBUG 

FB31 

85 

48 



STA 

STATUS 

SOFTWARE 

FB33 

AD 

56 

CO 


LDA 

LORES 


FB36 

AD 

54 

CO 


LDA 

LOWSCR 

INIT VIDEO MODE 

FB39 

AD 

51 

CO 

SETTXT 

LDA 

TXTSET 

SET FOR TEXT MODE 

FB3C 

A9 

00 



LDA 

#S0 0 

FULL SCREEN WINDOW 

FB3E 

FO 

OB 



REQ 

SETWND 


FB40 

AD 

50 

CO 

SETGR 

LDA 

TXTCLR 

SET FOP GRAPHICS MODE 

FB4 3 

AD 

53 

CO 


LDA 

M.IXSET 

LOWER 4 LINES AS 

FB46 

20 

36 

F8 


JSR 

CLPTOP 

TEXT WINDOW 

FB49 

A9 

14 



LDA 

#$14 


FB4B 

85 

22 


SETWND 

STA 

WNDTOP 

SET FOP 40 COL WINDOW 

FB4D 

A9 

00 



LDA 

#$00 

TOP IN A-FFG, 

FB4F 

85 

20 



STA 

WNDLFT 

BTTM AT LINE 24 

FB51 

A9 

28 



LDA 

#$28 


FB53 

85 

21 



STA 

WNDWCTH 


FB55 

A9 

18 



LDA 

#$16 


FB57 

85 

23 



STA 

WNDBTM 

VTAB TO ROW 23 

FB59 

A9 

17 



LDA 

#$17 


FB5B 

85 

25 


TABV 

STA 

CV 

VTABS TO ROW IN A-REG 

FB5D 

4C 

22 

FC 


JMP 

VTAR 


FB60 

20 

A4 

FB 

MULPM 

JSR 

MD1 

A3S VAL OF AC AUX 

FB6 3 

AO 

10 


MUL 

LDY 

#$10 

INDEX FOP 16 BITS 

FB6 5 

A5 

50 


MUL2 

LDA 

ACL 

ACX - AUX + XTND 

FB67 

4 A 




LSR 

A 

TO AC, XTND 

FB68 

90 

OC 



BCC 

MUL4 

IF NO CAPRY, 

FB6A 

ie 




CLC 


NO PARTIAL PPOD. 

F86B 

A2 

FE 



LDX 

# $ FE 


FB6D 

B5 

54 


MUL 3 

LDA 

XTNDL+2,X 

ADD MPLCND (AUX) 

FB6F 

75 

56 



ADC 

AUXL+2,X 

TO PARTIAL PROD 

FB71 

95 

54 



STA 

XTNDL+2,X 

(XTND). 

FB73 

E8 




INX 



FB74 

DO 

F7 



BNF 

M UL3 


FB76 

A2 

03 


MUL4 

LDX 

#S03 


FB78 

76 



MUL5 

DFB 

#$76 


FB79 

50 




DFB 

#$50 


FB7A 

CA 




DEX 



FB7B 

10 

FP. 



3 PL 

MUL 5 


FB7D 

88 




DEY 



FB7E 

DO 

E 5 



BNE 

MUL2 


FB80 

60 




RTS 
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FB81 

20 

A 4 

FB 

DIVP.M 

J SR 


AMS VAL OF AC, AUX. 

FB84: 

AO 

10 


DIV 

LDY 

#$10 

INDEX FOR 16 PITS 

FB86 s 

06 

50 


DIV 2 

ASL 

ACL 


FB88: 

26 

51 



ROL 

ACH 


FB8A 

26 

52 



HGL 

XTNOL 

XTND/AUX 

FB8C 

26 

53 



KOL 

XTNDH 

TO AC. 

FB8E: 

38 




SEC 



FB8F 

A5 

52 



LDA 

XTNOL 


FB91 

F5 

54 



sec 

Al'XL 

MOP TO XTNO. 

FB9 3 

AA 




TAX 



FB94: 

A5 

53 



LDA 

XTNDH 


F396: 

E5 

55 



SBC 

AUX if 


FB9 8: 

90 

06 



8CC 

DIV3 


FB9A 

86 

52 



STX 

XTNDL 


F39C 

85 

53 



ST A 

XTJDM 


FB9E 

E6 

50 



INC 

ACL 


FBAO 

88 



DIV3 

of;y 



FBAl 

DO 

E3 



BNE 

DIV2 


FBA3 

60 




RTS 



FBA4 

AO 

00 


MD1 

LDY 

#$00 

t PS VAL OF AC, AUX 

FBA6 

84 

2F 



STY 

SIGN 

WITH RESULT SIGN 

FBA8: 

A2 

54 



LDX 

#AUXL 

IN LSB OF SIGN. 

FBAA 

20 

AF 

FE 


JSR 

MD2 


FBAD 

A2 

50 



LDX 

# ACL 


FBAF 

B 5 

01 


MD2 

LDA 

LOCI,X 

X SPECIFIES AC OR AUX 

FB31 

10 

OD 



PPL 

MDRTS 


FBB3 

38 




SEC 



FBB4 

98 



MD3 

TYA 



FBB5 

F5 

00 



SBC 

LOCO,X 

COMPL SPECIFIED REG 

FBB7 

95 

00 



STA 

LOC 0,X 

IF NEG. 

FBB9 

98 




TYA 



FBBA 

F5 

01 



SBC 

LOCI,X 


FBBC 

95 

01 



STA 

LOC1, X 


FBBE 

E6 

2F 



INC 

SIGN 


FBCO 

60 



MDRTS 

RTS 



FBC1 

48 



BASCALC 

PHA 


CALC BASE ADR IN BASL,H 

FBC2 

4A 




LSR 

A 

FOR GIVEN LINE NO. 

FBC3 

29 

03 



AND 

i SO 3 

0<»LINE NO.<=*$17 

FBC5 

09 

04 



ORA 

#$04 

APG*000A9CDE, GENERATE 

FBC7 

85 

29 



STA 

BASH 

BASH«P00001CD 

FBC9 

68 




PLA 


AND 

FBCA: 29 

18 



AND 

#$1R 

BASL*EARAB000 

FBCC 

90 

02 



BCC 

8SCLC2 


FBCE 

69 

7F 



ADC 

#$7F 


FBDO 

85 

28 


3SCLC2 

STA 

BASL 


FBD2 

OA 




ASL 

A 


FBD3 

GA 




ASL 

A 


FBD4 

05 

28 



ORA 

BASL 


FBD6 

85 

28 



STA 

BASL 


FBD8 

60 




RTS 



FBD9 

C9 

87 


BELLI 

CMP 

#$87 

BELL CHAR? (CNTRL-G) 

FBDB 

DO 

12 



BNE 

RTS2B 

NO, RF'FURN 

FBDD: A9 

40 



LDA 

#$40 

DELAY .01 SECONDS 

F6DF: 

: 20 

A 8 

FC 


J5P 

'.iAIT 


FBE2: AO 

CO 



LDY 

#SC0 


FBE4 : 

: A 9 

OC 


BELL2 

LDA 

#$0C 

TOGGLE SPEAKER AT 

FBE6: 

: 20 

A8 

FC 


JSR 

KMT 

1 KHZ FOR .1 SEC. 

FBE9: 

: AD 

30 

CO 


LDA 

SPKR 


F3EC : 

: 88 




DEY 



FBEL): 

: DO 

F5 



BNE 

PELL2 


F3EF: 60 



PTS 2* 

RTS 



FBFO 

: A 4 

24 


STOAOV 

LDY 

CH 

CURSER H INDEX TO Y-REG 

F3F2: 

: 91 

28 



STA 

(BASL),Y 

STOP CHAR IN LINE 

FBF4: E6 

24 


ADVANCE 

INC 

CH 

INCREMENT CURSER H INDEX 

FBF6 

A5 

24 



LDA 

CH 

( MOVE RICHT) 

F6F8 

C5 

21 



C M. P 

KNDNDTH 

BEYOND WINDOW WIDTH? 

FBFA 

BO 

66 



DCS 

CR 

YES 'P TO WFXT LINE 

FBFC 

60 



PTS 3 

RTS 


MO,RETURN 

FBFD 

C9 

AO 


VIDOUT 

CMP 

# SAO 

CONTROL CHAP? 

FBFF 

BO 

EF 



BCS 

STOADV 

NO,OUTPUT IT. 

FC01 

A8 




TAY 


INVERSE VIDEO? 

FC02 

10 

EC 



3PL 

3TOADV 

YES, OUTPUT IT. 

FC04 

C9 

8D 



CMP 

# $ 80 

CR? 

FC06 

FO 

5A 



BEO 

CR 

YES. 

FC08 

C9 

8A 



CMP 

#$8A 

LINE FEED? 

FCOA 

FO 

5A 



BEQ 

LF 

IF SO, DO IT. 

FCOC 

C9 

88 



CMP 

#$S8 

BACK SPACE? (CNTRL-H) 

FCOE 

DO 

C9 



RNE 

BELLI 

MO, CHECK FOR BELL. 

FC10: C6 

24 


PS 

DEC 

CH 

DECREMENT CURSER H INDEX 

FC12 

: 10 

E8 



BPL 

PTS 3 

IF POS, OK. ELSE MOVE UP 

FC14 

: A5 

21 



LDA 

XNDNDTH 

SFf CH TO KNDWDTH-l 

FC16 

: 85 

24 



STA 

CH 


FC18 

: C6 

24 



DEC 

CH 

(RIGHTMOST SCREEN POS) 

FC 1A 

: A 5 

22 


UP 

LDA 

WNDTOP 

CURSF.P V INDEX 

FC1C 

: C5 

25 



CMP 

CV 
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FC1E 

BO 

0B 


BCS 

RTS 4 

FC20 

C6 

25 


DEC 

CV 

FC22 

A5 

25 

VTAB 

LDA 

CV 

FC24 

20 

Cl FB 

VTABZ 

JSP 

PASCALC 

FC27 

65 

20 


ADC 

WHDLFT 

FC29 

85 

28 


STA 

BASL 

FC2B 

60 


RTS 4 

PTS 


FC2C 

49 

CO 

ESC 1 

EOR 

#$CG 

FC2E 

F0 

28 


BFO 

HOME 

FC30 

69 

FD 


ADC 

#$FD 

FC32 

90 

CO 


BCC 

ADVANCF 

FC34 

F0 

DA 


3EO 

BS 

FC36 

69 

FD 


ADC 

# SFD 

FC38 

90 

2C 


BCC 

LF 

FC3A 

F0 

DE 


BEQ 

UP 

FC3C 

69 

FD 


ADC 

# $ FD 

FC3E 

90 

5C 


BCC 

CLREOL 

FC40 

DO 

E9 


3NE 

PTS 4 

FC4 2 

A4 

24 

CLREOP 

LDY 

CH 

FC4 4 

A5 

25 


LDA 

CV 

FC46 

48 


CLEOP1 

PHA 


FC47 

20 

24 FC 


JSR 

VTABZ 

FC4A 

20 

9E FC 


JSP 

CLEOL7 

FC4D 

A0 

00 


LDY 

#$00 

FC4F 

68 



PLA 


FC50 

69 

00 


ADC 

#$00 

FC52 

C5 

23 


CMP 

WND8TM 

FC54 

90 

FO 


BCC 

CLEOP1 

FC 56 

B0 

CA 


BCS 

VTAB 

FC58 

A5 

22 

HOME 

LDA 

WNDTOP 

FC5A 

85 

25 


STA 

CV 

FC5C 

A0 

00 


LDY 

#$00 

FC5E 

84 

24 


STY 

CH 

FC60 

F0 

E 4 


3EO 

CLFOP1 

FC62 

A9 

00 

CR 

LDA 

#$00 

FC6 4 

85 

24 


STA 

CH 

FC66 

E6 

25 

LF 

INC 

CV 

FC68 

A5 

25 


LD.A 

CV 

FC6A 

C5 

23 


CMP 

WNDBTM 

FC6C 

90 

B6 


BCC 

VTAP7 

FC6E 

C6 

25 


DEC 

CV 

FC70 

A5 

22 

SCROLL 

LDA 

WNDTOP 

FC7 2 

48 



PHA 


FC73 

20 

24 FC 


JSP 

VTABZ 

FC76 

A5 

28 

SCRLl 

LDA 

BASL 

FC78 

85 

2A 


STA 

BAS2L 

FC7A 

A5 

29 


LDA 

BASH 

FC7C 

85 

2B 


STA 

BAS2H 

FC7E 

A4 

21 


LDY 

WNDWDTH 

FC80 

88 



DFY 


FC81 

68 



PIjA 


FC82 

69 

01 


ADC 

#$01 

FC8 4 

C5 

23 


CMP 

WNDPTM 

FC86 

B0 

OD 


BCS 

SCRL3 

FC88 

48 



PHA 


FC89 

20 

24 FC 


JSP 

VTABZ 

FC8C 

Bl 

28 

SCRL2 

LDA 

(BASL) ,' 

FC8E 

91 

2A 


STA 

(PAS2L) 

FC90 

88 



DEY 


FC91 

10 

F9 


BPL 

SCPL2 

FC93 

30 

El 


BMI 

SCRLl 

FC9 5 

A0 

00 

SCPL 3 

LDY 

#$C0 

FC9 7 

20 

9E FC 


JSR 

CLEOLZ 

FC9A 

B0 

86 


3CS 

VTAB 

FC9C 

A4 

24 

CLREOL 

LDY 

CH 

FC9E 

A9 

AO 

CLFOLZ 

LDA 

# SAO 

FCAO 

91 

28 

CLFOL2 

STA 

(BASL), 

FCA2 

C8 



I NY 


FCA3 

C4 

21 


CPY 

WNDWPTH 

FCA5 

90 

F9 


BCC 

CLEOL2 

FCA7 

60 



PTS 


FCA8 

38 


WAIT 

SEC 


FCA9 

48 


WAIT 2 

PHA 


FCAA 

E 9 

01 

WAIT3 

SBC 

#$01 

FCAC 

DO 

FC 


PNE 

WAIT 3 

FCAE 

68 



PLA 


FCAF 

E9 

01 


SBC 

#S01 

FCB1 

DO 

F 6 


BNF 

v;ait2 

FCB 3 

60 



PTS 


FCB4 

Eb 

42 

NXTA4 

INC 

A4L 

FCB 6 

DO 

02 


PNE 

NXTA1 

FCB 8 

E6 

43 


INC 

A 4H 

FC6A 

A5 

3C 

NXTA1 

LDA 

AIL 

FCBC 

C 5 

3E 


CMP 

A2L 

FC8E 

A5 

3D 


LOA 

A 1H 


IF TOP LINE THEN PETURN 
DFCR CURSER V-INDEX 
GET CURSER V-INDEX 
GENERATE BASE ADDR 
ADD WINDOW LEFT INDEX 
TO BASL 

ESC? 

IF SO, DO HONE AND CLFAR 
ESC-A OP B CHECK 

A, ADVANCE 

B, BACKSPACE 
ESC-C OR D CHECK 

C, DOWN 

D, GO UP 

ESC-E OP F CHECK 

F., CLEAR TO END OF LINE 
NOT F, RETURN 
CURSOR H TO Y INDEX 
CURSOP V TO A-REGISTER 
SAVE CUPRENT LINE ON STK 
CALC BASE ADDRFSS 
CLEAR TO EOL, SET CARRY 
CLEAR F^'-M H INDEX = 0 FOR PEST 
INCREMENT CUPRENT LINE 
(CARRY IS SET) 

DONE TO BOTTOM OF WINDOW? 

NC, KEEP CLFAPING LINES 
YES, TAB TO CUPRENT LINE 
INIT CURSOP V 
AND H-INDICES 

THEN CLEAR TO END OF PAGE 

CURSOR TO LEFT OF INDFX 
(PET CURSOR H=0) 

I NCR CURSOP V (DOWN 1 LINE) 

OFF SCREFN? 

NO, SET BASE ADDR 
DECP CURSOR V (BACK TO BOTTOM LIMB,) 
START AT TOP OF SCPL WNDW 

GENERATE BASE ADDRESS 
COPY BASL,H 
TO BAS2L,H 


INIT Y TO RIGHTMOST INDEX 
OF SCROLLING WINDOW 

INCR LINE NUMBER 
DONE? 

YFS, FINISH 

FORM BASL,H (BASE ADDR) 

’ MOVE A CHR UP ON LINE 
Y 

NEXT CHAP OF LINE 

NEXT LINE 

CLEAR BOTTOM LINE 

GET RASE ADDR FOR ROTTOM LINE 

CARRY IS SET 

CURSOR H INDEX 

' STORE BLANKS FROM 'HERE' 

TO END OF LINES (WNDWDTH) 


1.0204 USEC 
(13+2712*A+512*A*A) 


INCR 2-FYTE A4 
AND Al 

INCP 2-BYTE Al. 

AND COMPARE TO A2 
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FCCO 

E5 

3F 



SBC 

A2l. 


FCC 2 

E6 

3C 



INC 

ML 

(CARPY SET IF >=) 

FCC4 

DO 

02 



BNE 

RTS4R 


FCC 6 

E6 

3D 



INC 

A1H 


FCC 8 

6 0 



RTS 4* 

RTS 



FCC 9 

AO 

43 


MEADK 

LDY 

f $4i J 

* 7 RITE A*256 ’LONG 1' 

FCC* 

20 

DB 

FC 


JSR 

ZFPPLY 

HALF CYCLES 

FCCE 

DO 

F9 



3NF 

HEADR 

(650 USEC EACH ) 

FCDO 

69 

FE 



ADC 

#$FF 


FC02 

PO 

F5 



«CS 

JfcADP 

THEN A 'SHORT O' 

FCD4 

AO 

21 



LDY 

#$21 

(400 USEC) 

FCD6 

20 

DB 

FC 

WRBIT 

JSR 

ZERDLY 

WRITE TWO HALF CYCLES 

FCD9 

C8 




INY 


OF 250 USEC ('0') 

FCDA 

C8 




I NY 


OR 500 USEC (*0 ' ) 

FCDB 

88 



ZERDLY 

DEY 



FCDC 

DO 

FD 



BNE 

ZEPDLY 


FCDE 

90 

05 



BCC 

WRTAPE 

Y IS COUNT FOR 

FCEO 

AO 

32 



LDY 

# $ 32 

TIMING LOOP 

FCE2 

88 



ONEDLY 

DEY 



FCE 3 

DO 

FD 



BNE 

ONEDLY 


FCE5 

AC 

20 

CO 

WRTAPE 

LDY 

TAPEOUT 


FCE8 

AO 

2C 



LDY 

#$2C 


FCEA 

CA 




DEX 



FCEB 

60 




RTS 



FCF.C 

A2 

08 


RDRYTE 

LDX 

#$08 

8 BITS TO READ 

FCEE 

48 



FDBYT2 

PHA 


READ TWO TRANSITIONS 

FCEF 

20 

FA 

FC 


J3P 

R02BIT 

(FIND EDGE) 

FCF2 

68 




PLA 



FCF3 

2A 




ROL 

A 

NEXT BIT 

FCF4 

AO 

3A 



LDY 

*$3A 

COUNT FOR SAMPLES 

FCF6 

CA 




DEX 



FCF7 

DO 

F5 



BNE 

RDBYT2 


FCF9 

60 




RTS 



FCFA 

20 

FD 

FC 

RD2BIT 

JSR 

RD3IT 


FCFD 

83 



PDPIT 

DEY 


DECR Y UNTIL 

FCFE 

AD 

60 

CO 


LDA 

TAPE IN 

TAPE TRANSITION 

FDOl 

45 

2F 



EOR 

LASTIN' 


FDO 3 

10 

F8 



PPL 

RDBIT 


FD05 

45 

2F 



EOR 

LASTIN 


FD07 

85 

2F 



ST A 

LASTIN 


FD09 

CO 

80 



CPY 

# S80 

SET CARRY ON Y-PEG. 

FDOB 

60 




PTS 



FDOC 

A4 

24 


RDKfc'Y 

LDY 

CH 


FDOE 

B1 

28 



LDA 

(PASL),Y 

SET SCREEN TO FLASH 

FDl 0 

48 




PHA 



FDl 1 

29 

3F 



AND 

# S 3 F 


FDl 3 

09 

40 



ORA 

#$40 


FDl 5 

91 

28 



STA 

(FASL) , Y 


FDl 7 

68 




PLA 



FDl 8 

6C 

38 

00 


J.*P 

(KS,; L) 

GO TO USER KEY-IN 

FD1B 

E6 

4E 


KFYIN 

INC 

FNDL 


FDlD 

DO 

02 



B4F 

KEY If‘>2 

INCR RNP NUMBER 

FDl F 

E6 

4 F 



INC 

RNDH 


FD21 

2C 

00 

CO 

KEY IN 2 

3 IT 

KBD 

KEY DOUN? 

FD24 

10 

F5 



EPL 

KEY IN 

LOOP 

FD26 

91 

28 



STA 

(tiASL) , Y 

REPLACE FLASHING SCREEN 

FD28 

AD 

00 

CO 


LDA 

KFD 

CEf KFYCODE 

FD2B 

2C 

10 

CO 


FIT 

KPDSTP? 

CLP KEY STROBE 

FD2E 

60 




RTS 



FD2F 

20 

OC 

FD 

ESC 

JSR 

PDKFY 

GET KFYCODE 

FD32 

20 

2C 

FC 


JSR 

ESC 1 

HANDLE ESC FUNC. 

FD35 

20 

OC 

FD 

PDCHAP 

JSR 

PDKEY 

READ KFY 

FD38 

C9 

93 



CMP 

# S9S 

ESC? 

FD3A 

FO 

F 3 



REO 

ESC 

YES, DON'T RETURN 

FD3C 

60 




RTS 



FD3D 

A5 

32 


NOTCR 

LDA 

INVFLG 


FD3F 

48 




PHA 



FD40 

A9 

FF 



LDA 

# $FF 


FD42 

85 

32 



STA 

INVFLG 

ECHO USEP LINE 

FD4 4 

BD 

00 

02 


LDA 

IN , X 

NON INVFRSF 

FD4 7 

20 

ED 

FD 


JSR 

COUT 


FD4A s 

t 68 




PLA 



FD4B 

85 

32 



STA 

INVFLG 


FD4D 

BD 

00 

02 


LDA 

IN , X 


FD50 

C9 

88 



CMP 

#$68 

CHECK EOR EDIT KEYS 

FD52 

FO 

ID 



PEC 

BCKSPC 

RS, CTRL-X. 

FD54 

C9 

98 



CMP 

# $96 


FD56 

FO 

OA 



PEO 

CANCEL 


FD 58 

EO 

F8 



CPX 

#$F8 

MARGIN? 

FD5A 

90 

03 



BCC 

NOTCR1 


FD5C 

20 

3A 

FF 


JSR 

BELL 

YES, SOUND PELL 

FD5F 

E8 



NOTCR1 

I NX 


ADVANCE INPUT INDEX 

FD60 

DO 

13 



BNE 

NXTCHAR 


FD62 

A9 

DC 


CANCEL 

LDA 

#$DC 

BACKSLASH AFTFR CANCELLED LINE 

FD64 

20 

ED 

FD 


JSR 

COUT 
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FD67 

20 

8E 

FD 

GETLNZ 

JSR 

CROUT 

OUTPUT CP 

FD6A 

A5 

33 


GBTLN 

LDA 

PROMPT 


FD6C 

20 

ED 

FD 


JSR 

COUT 

OUTPUT PROMPT CHAP 

FD6F 

A2 

01 



LDX 

#S01 

INIT INPUT INDEX 

FD71 

8A 



BCKSPC 

TXA 


WILL BACKSPACE TO 0 

FD72 

FO 

F3 



DEQ 

GETLNZ 


FD74 

CA 




DEX 



FD75 

20 

35 

FD 

MXTCilAK 

JSP 

PDCriAP 


FD78 

C9 

95 



CMP 

#PIC,< 

USE SCREEN CHAR 

FD7A 

DO 

02 



BNE 

CAPTST 

FOP CTR.L-U 

FD7C 

B1 

28 



LDA 

(BASL) , Y 


FD7E 

C9 

EO 


CAPTST 

CMP 

#$E0 


FD80 

90 

02 



BCC 

ADDIN? 

CONVERT TO CAPS 

FD82 

29 

DF 



AND 

#$OF 


FD84 

9D 

00 

02 

ADDIUP 

STA 

IN, X 

^DD TO INPUT 3UF 

FD87 

C9 

8D 



CMP 

«$8D 


FD89 

DO 

B2 



BNE 

NOTCP 


FD8B 

20 

9C 

FC 


JSP 

CLP EOL 

CLR TO EOL IF CR 

FD8E 

A9 

8D 


CROUT 

LDA 

»S8D 


FD90 

DO 

5B 



BNE 

COUT 


FD92 

A4 

3D 


PPAl 

LDY 

A1H 

PRINT CP,A 1 IN HEX 

FD94 

A6 

3C 



LDX 

AIL 


FD96 

20 

8E 

FD 

PFYX2 

JSR 

CROUT 


FD99 

20 

40 

F9 


JSP 

PPJTYX 


FD9C 

AO 

00 



LDY 

#$00 


FD9E 

A9 

AD 



LDA 

# $ AD 

PRINT ’-' 

FDAO 

4C 

ED 

FD 


J'iP 

COUT 


FDA 3 

A5 

3C 


XAM 8 

LDA 

AIL 


FDA 5 

09 

07 



ORA 

^ SO 7 

SET TO FINISH AT 

FDA7 

85 

3E 



STA 

A 2L 

MOD P=7 

FDA 9 

A5 

3D 



LDA 

A1H 


FDAB 

85 

3F 



STA 

A 2H 


FDAD 

A 5 

3C 


i'lOCHCHK 

LDA 

AIL 


FDA F 

29 

07 



AND 

4 $0 7 


FD31 

DO 

03 



BMC 

DATAOUT 


FDB3 

20 

92 

FD 

XAM 

JSP 

PRAl 


FD36 

A9 

AO 


DATAOUT 

LDA 

# $ A 0 


FDB8 

20 

FD 

FD 


JSP 

COUT 

OUTPUT BLANK 

FD3B 

B1 

3C 



LDA 

(AIL),Y 


FDBD 

20 

DA 

FD 


JSP 

PPBYTE 

OUTPUT BYTE IN HEX 

FDCO 

20 

BA 

FC 


JSR 

NXTA1 


FDC 3 

90 

E8 



BCC 

MOD8CHK 

CHECK IF TIME TO, 

FDC 5 

60 



RTS4C 

RTS 


PRINT ADD? 

FDC 6 

4 A 



XAM PM 

LSR 

A 

DETERMINE IF MON 

FDC 7 

90 

EA 



3CC 

XAM 

MODE IS XAM 

FDC 9 

4 A 




LSR 

A 

ADD, OR SUB 

FDC A 

4 A 




LSR 

A 


FDCB 

A 5 

3E 



LDA 

A 2L 


FDCD 

90 

02 



BCC 

ADD 


FDCF 

49 

FF 



EOP 

4SFF 

SU3: FORM 2'S COMPLEMENT 

FDDl 

65 

3C 


ADD 

ADC 

AIL 


FDD3 

48 




PHA 



FDD4 

A9 

BD 



LDA 

4 $ 3D 


FDD6 

20 

ED 

FD 


JSR 

COUT 

PRINT ' = ', THEN RESULT 

FDD9 

68 




PLA 



FDDA 

48 



PPBYTE 

PHA 


TRINT EYTE AS 2 HEX 

FDDB 

4 A 




LSR 

A 

DIGITS, DESTROYS A-PEG 

FDDC 

4 A 




LSR 

A 


FDDD 

4 A 




LSP 

A 


FDDE 

4A 




LSR 

A 


FDDF 

20 

E5 

FD 


JSR 

PRHEXZ 


FDE2 

68 




PLA 



FDE3 

29 

OF 


PR HEX 

AND 

4 $ 0 F 

PRINT HEX DIG IN A-REG 

FDE5 

09 

BO 


PRHEXZ 

ORA 

#$eo 

LSB ' S 

FDE7 

C9 

3A 



CMP 

# $ BA 


FDE9 

90 

02 



BCC 

COUT 


FDEB 

69 

06 



ADC 

#$06 


FDED 

6C 

36 

00 

COUT 

JVlP 

(CSl’’L) 

VECTOR TO USER OUTPUT ROUTINE 

FDFO 

C9 

AO 


C0UT1 

CMP 

# $ AO 


FDF2 

90 

02 



BCC 

COUTZ 

DON'T OUTPUT CTRL'S INVERSE 

FDF4 

25 

32 



AND 

INVFLG 

MASK WITH INVERSE FLAG 

FDF6 

84 

35 


COUTZ 

STY 

YS AVI 

SAV Y-REG 

FDF8 

48 




PHA 


SAV A-PEG 

FDF9 

20 

FD 

FB 


JSR 

VIDOUT 

OUTPUT A-REG AS ASCII 

FDFC 

68 




PLA 


RESTORE A-REG 

FDFD 

A4 

35 



LDY 

YSAVl 

AND Y-RFG 

FDFF 

60 




RTS 


THEN RETURN 

FEOO 

C6 

34 


BL1 

DEC 

YS AV 


FEO 2 

FO 

9F 



BEQ 

XAM 8 


FE04 

CA 



BLANK 

DEX 


BLANK TO MON 

FE05 

DO 

16 



BNE 

SETMDZ 

AFTER BLANK 

FEO 7 

C9 

BA 



CMP 

# $BA 

DATA STORE MODE? 

FE09 

DO 

BB 



BNE 

XAM PM 

NO, XAM, ADD OR SUB 

FEOB 

85 

31 


STOP 

STA 

MODE 

KEEP IN STORE MODE 

FEOD 

A5 

3E 



LDA 

A2L 
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FEOF: 

91 

40 



STA 

(A3L),Y 

STORE AS LOW BYTE AS (A3) 

FE11: 

E6 

40 



INC 

A 3L 


FE 13: 

DO 

02 



BNF 

RTS 5 

INCR A3, RETURN 

FE15: 

E6 

41 



INC 

A3H 


FE 17: 

60 



RTS 5 

RTS 



FE 18 : 

A4 

34 


SFTMODE 

LDY 

YSAV 

SAVE CONVERTED •:•, '+*, 

FE1A: 

B9 

FF 

01 


LDA 

IN-1,Y 

' AS MODE. 

FE ID: 

85 

31 


SFTMDZ 

STA 

MODE 


FE1F: 

60 




RTS 



FE 20 s 

A2 

01 


LI* 

LDX 

*$01 


FE22 

B5 

3E 


LT2 

LDA 

\2L, X 

COPY A2 (2 BYTES) TO 

FE24 

95 

42 



STA 

A4L,X 

A4 AND A5 

FE 26 

95 

44 



STA 

A 5 L, X 


FE 28 

CA 




DEX 



FE 29 

10 

F7 



BPL 

LT2 


FE2B 

60 




RTS 



FE2C 

Bl 

3C 


MOVE. 

LDA 

(AIL),Y 

MOVE (A1 TO A2) TO 

FE2E 

91 

42 



STA 

(A4L),Y 

(M) 

FE30 

20 

B4 

FC 


JSR 

NXTA4 


FE 33 

90 

F7 



DCC 

MOVE 


FE35 

60 




RTS 



FE 36 

Bl 

3C 


VFY 

LDA 

(ML) , Y 

VEkIFY (A1 TO A2) WITH 

FE38 

D1 

42 



CMP 

(A4L) , Y 

(A4) 

FE3A 

FO 

1C 



PEG 

VFYCK 


FE3C 

20 

92 

FD 


JSR 

PHM 


FE3F 

Bl 

3C 



LDA 

(AIL),Y 


FE41 

20 

DA 

FD 


JSR 

PRSYTE 


FE44 

A9 

AO 



LDA 

* SAG 


FE46 

20 

ED 

FD 


JSR 

COUT 


FE49 

A 9 

A8 



LDA 

#SA8 


FE4B 

20 

ED 

FD 


JSR 

COUT 


FE4E 

Bl 

42 



LDA 

(A 4 L) , Y 


FE50 

20 

DA 

FD 


J3F 

PRBYTE 


FE 5 3 

A9 

A9 



LDA 

# $ A 9 


FE 55 

20 

ED 

FD 


JSR 

COUT 


FE58 

20 

B4 

FC 

VFYDK 

JSR 

NXTA4 


FE5B 

90 

D9 



occ 

VFY 


FE5D 

60 




RTS 



FE5E 

20 

75 

FE 

LIST 

J3P 

A1PC 

"'VE A1 (2 BYTES) TO 

FE61 

A9 

14 



LDA 

#$14 

PC IF SPEC 1 D AMD 

FE63 

4b 



LIST2 

PilA 


DISSEMBLE 20 INSTRS 

FE6 4 

20 

DO 

F8 


JSR 

INSTDSP 


FE6 7 

20 

53 

F9 


JSR 

PCACJ 

ADJUST PC EACH INSTP 

FE6A 

85 

3A 



STA 

PCL 


FE6C 

84 

39 



STY 

PCH 


FE6E 

68 




PLA 



FE6F 

38 




SEC 



FE70 

E9 

01 



SBC 

#$01 

NEXT OF 20 INSTRS 

FE72 

DO 

EF 



BN F. 

LIST2 


FE74 

60 




RTS 



FE75 

8A 



A1 PC 

TXA 


IF USER SFEC'D ADR 

FE76 

FO 

07 



EEC 

A1PCRTS 

COPY FROM A1 TO PC 

FE78 

B5 

3C 


AlPCLP 

LDA 

A 1L , X 


FE7A 

95 

3A 



STA 

PCL, X 


FE7C 

CA 




DEX 



FE7D 

10 

F9 



PPL 

AirCLP 


FE7F 

60 



A 1PCRTS 

RTS 



FE80 

AO 

3F 


SETINV 

LDY 

# $ 3F 

SET FOR INVERSE VID 

FE32 s DO 

02 



BNE 

SETIFLG 

VIA COUT1 

FE84 

AO 

FF 


SETNORM 

LDY 

#$FF 

SET FOR NORMAL VID 

FE86 

84 

32 


SETIFLG 

STY 

INv/FLG 


FE88 

60 




RTS 



FE89 

A9 

00 


SETK3D 

LDA 

#$0 0 

SIMULATE PORT #0 INPUT 

FE8B 

85 

3E 


INPORT 

STA 

A2L 

SPECIFIED (KEYIN ROUTINE) 

FE8D 

A2 

36 


INPRT 

LDX 

# KSWL 


FE8F 

AO 

IB 



LDY 

# KEY IN 


FE91 

DO 

08 



BNE 

IOPRT 


FE93 

A9 

00 


SETVID 

LDA 

#$00 

SIMULATE PORT #0 OUTPUT 

FE95 

85 

3E 


OUTPORT 

STA 

A2L 

SPECIFIED (COUT1 ROUTINE) 

FE97 

A2 

36 


OUTPRT 

LDX 

#CSWL 


FE99 

AO 

FO 



LDY 

#C0UT1 


FE9B 

A5 

3E 


IOPRT 

LDA 

A 21. 

SET RAM IN/OUT VECTORS 

FE9D 

29 

OF 



AND 

# $ OF 


FE9F 

FO 

06 



CFQ 

IOPRT1 


FEA1 

09 

CO 



ORA 

#IOADR/256 

FEA3 

AO 

00 



LDY 

#$00 


FEA 5 

FO 

02 



PEQ 

ICPRT2 


FEA7 

A9 

FD 


IOPFT1 

LDA 

#COUTl/256 

FEA 9 

94 

00 


I0PPT2 

STY 

LOC 0, X 


FEA3 

95 

01 



STA 

LOCI,X 


FEAD 

60 




PTS 



FEAE 

EA 




NOP 



FEAF 

EA 




NOP 



FEBO 

4C 

00 

no 

XPASIC 

J'lP 

BASIC 

TO BASIC WITH SCRATCH 

FED 3 

4C 

03 

EO 

BASCONT 

j y< p 

BASIC2 

CONTINUE BASIC 
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FEB 

20 

75 

FE 

GO 

JSR 

A1PC 

ADR TO PC IF SPEC'D 

FEB 

20 

3F 

FF 


JSP 

RESTOPE 

RESTORE META PEGS 

FEBC 

6C 

3A 

00 


JMP 

(PCL) 

CO TO USER SUBR 

FEBF 

4C 

D7 

FA 

REGZ 

JVP 

RE’GUSP 

TO REG DISPLAY 

FEC 

C6 

34 


tpacf: 

DEC 

YSAV 


FEC 

20 

75 

FE 

STEPZ 

JSP 

A 1PC 

ADR TO PC IF SPEC'D 

FEC 

4C 

43 

FA 


JMP 

STFP 

TAKE ONE STEP 

FECA 

4C 

F8 

03 

USP 

JMP 

USFADR 

TO USP SUBR AT USRADR 

FECD 

A9 

40 


WRITE 

LDA 

# S4 0 


FECF 

20 

C9 

FC 


JSR 

HEADR 

WRITE 10-SEC HEADER 

FED 

AO 

27 



LDY 

#$27 


FED 

A2 

00 


m l 

LDX 

*$00 


FED 

41 

3C 



EOP 

(A1L, X) 


FED 

48 




PH A 



FED 

A1 

3C 



LDA 

(A1L, X) 


FEDB 

20 

ED 

FE 


JSP. 

'.VP BYTE 


FEDE 

20 

BA 

FC 


JSR 

NXTA1 


FEE 

AO 

ID 



LDY 

# $ 1D 


FEE 

68 




FLA 



FEE 

90 

EE 



ECC 

«P1 


FEE6 

AO 

22 



LDY 

#$22 


FEES 

20 

ED 

FE 


JSP. 

WRBYTE 


FEEB 

FO 

4C 



B EC 

PELL 


FEED 

A2 

10 


WRBYTE 

LDX 

#$10 


FEET 

OA 



WRBYT2 

ASL 

A 


FEFO 

20 

D6 

FC 


JSR 

KRBIT 


FEF3 

DO 

FA 



BNE 

WRSYT2 


FEF5 

60 




RTS 



FEF6 

20 

00 

FE 

CRM.ON 

JSR 

BL1 

HANDLE CR AS PLANK 

FEF9 

68 




PLA 


THEN POP STACK 

FEFA 

68 




PLA 


AND PTN TO MON 

FEFB 

DO 

6C 



BNE 

MONZ 


FEFD 

20 

FA 

FC 

READ 

JSR 

RD2BIT 

FIND TAPFIN EDGE 

FFOO 

A9 

16 



LDA 

#$16 


FF02 

20 

C9 

FC 


JSR 

HEADR 

OKI AY 3.5 SECONDS 

FFO 5 

85 

2E 



STA 

CHKSUM 

INIT CHKSUM=$FF 

FFO" 7 

20 

FA 

FC 


JSR 

RC2PIT 

FIND TAPEIM EDGE 

FFOA 

AO 

24 


RD2 

LDY 

#$24 

LOOK FOP SYNC BIT 

FFOC 

20 

FD 

FC 


JSR 

RDBIT 

(SHORT 0) 

FFOF 

BO 

F9 



BCS 

RD2 

LOOP UNTIL FOUND 

FFl 1 

20 

FD 

FC 


JSP 

ROP.IT 

SKIP SECOND SYNC H-CYCLE 

FFl 4 

AO 

33 



LDY 

#$3B 

INDEX FOP 0/1 TEST 

FFl 6 

20 

EC 

FC 

PD3 

JSP 

RDBYTE 

READ A BYTE 

FF19 

81 

3C 



STA 

(A1L , X ) 

STORE AT (Al) 

FF1B 

45 

2E 



EOR 

CHKSUM 


FF1D 

85 

2E 



STA 

CHKSU M 

UPDATE PUNNING CHKSUM 

FF1F 

20 

3A 

FC 


JSR 

NXTA1 

INCR Al, COMPARE TO A2 

FF22 

AO 

35 



LDY 

#$35 

COMPENSATE 0/1 INDEX 

FF24 

90 

FO 



PCC 

RD3 

LOOP UNTIL DONE 

FF26 

20 

EC 

FC 


JSR 

RDPYTE 

READ CH'<SU V BYTE 

FF29 

C 5 

2E 



CMP 

CHKSUM 


FF2B 

FO 

OD 



BEO 

BELL 

GOOD, SOUND BELL AND RETURN 

FF2D 

A9 

C5 


PPERR 

LDA 

*$C5 


FF2F 

20 

ED 

FD 


JSP 

COUT 

PRINT *'E 0 P" , THEN BELL 

FF32 

A9 

D2 



LDA 

*$D2 


FF34 

20 

ED 

FD 


JSP 

COUT 


FF37 

20 

ED 

FD 


JSR 

COUT 


FF3A 

A9 

87 


PELL 

LDA 

# $o: 

OUTPUT PELL AND RETURN 

FF3C 

4C 

ED 

FD 


J.1P 

COUT 


FF3F 

A5 

48 


RESTORE 

LDA 

STATUS 

RESTORE 6502 PEG CONTENTS 

FF41 

48 




PH A 


USED fY DEBUG SOFTWARE 

FF4 2 

A5 

45 



LDA 

ACC 


FF4 4 

A6 

46 


RESTRl 

LDX 

XREG 


FF4 6 

A4 

47 



LDY 

YFEG 


FF48 

28 




PLP 



FF49 

60 




RTS 



FF4A 

85 

45 


SAVE 

STA 

ACC 

SAVE 65C2 REG CONTENTS 

FF4C 

86 

46 


S AVI 

STX 

XREG 


FF4E 

84 

47 



STY 

YR PO¬ 


FF50 

08 




PHP 



FF51 

68 




PE, A 



FF5 2 

85 

48 



STA 

ST AT US 


FF54 

BA 




TSX 



FF5 5 

86 

49 



STX 

SPNT 


FF57 

D8 




CEO 



FF58 

60 




PI'S 



FF59 

20 

84 

FE 

RESET 

JSR 

SETNO&M 

SET SCREEN 10DE 

FF5C 

20 

2F 

FB 


JSP 

I NIT 

AND INIT KBD/SCRF.EN 

FF5F 

20 

93 

FE 


JSP 

SETVID 

AS I/O DEV'S 

FF6 2 

20 

69 

FE 


JSP 

SETKIiD 


FF6 5 

D8 



MOW 

CLD 


MUST SET HEX MODE! 

FF6 6 

20 

3A 

FF 


JSP 

BELL 


FF6 9 

A9 

AA 


MONZ 

LDA 

#$AA 

'*' PROMPT FOR MON 

FF6B 

85 

33 



STA 

PROMPT 


FF6D 

20 

67 

FD 


JSR 

GETLNZ 

READ A LINE 
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FF70 

20 

C7 

FF 


JSR 

Z-40DF. 

CLEAR W 0N MODE, SCAN IDX 

FF73 

20 

A7 

FF 

NXTITM 

JSF 

GETNUM 

GET ITEM, NON-HEX 

FF76 

84 

34 



STY 

YSAV 

CHAR IN A-REG 

FF78 

AO 

17 



LDY 

#$17 

X-RFC*0 IF NO HEX INPUT 

FF7A 

88 



CHRS6CH 

DFY 



FF7B 

30 

EB 



B v I 

MOW 

NOT FOUND, GO TO MON 

F F 7 D 

09 

CC 

FF 


cr.F 

CARTEL,Y 

FIND CMND CHAR IN TFT, 

FF80 

DO 

F8 



3NE 

CiirSRCH 


FF82 

20 

BE 

FF 


JSR 

TOSJB 

FOUND, CALL CORRESPONDING 

FF85: A4 

34 



LDY 

YSAV 

SUPROUTINE 

FF87 

4C 

73 

FF 


JMP 

NXTITM 


FF8A 

A2 

03 


QIC 

LDX 

4 $0 3 


FF8C 

OA 




ASL 

A 


FF8D 

OA 




ASL 

A 

GOT HEX DIC, 

FF8E 

OA 




ASL 

A 

SHIFT INTO A2 

FF8F 

OA 




ASL 

A 


FF90 

OA 



IMXTBIT 

ASL 

A 


FF91 

26 

3E 



ROL 

A2L 


FF9 3 

26 

3F 



POL 

A2K 


FF95 

CA 




DEX 


LEAVE X = $FF IF DIG 

FF96 

10 

FB 



BPL 

NXTBIT 


FF98 

A5 

31 


it X TEAS 

LDA 

MODE 


FF9A 

DO 

Ob 



PNE 

NXTFS2 

IF MOCF IS ZERO 

FF9C 

B5 

3F 



LDA 

A2H , X 

THEN COPY A2 TO 

FF9E 

95 

3D 



STA 

A l H , X 

A1 *vn A3 

FFAO 

95 

41 



ST A 

A 3 H , X 


FFA2 

E8 



MXTBS2 

I NX 



FFA3 

FO 

F 3 



•-F0 

•a XT? AS 


FFA5 

DO 

Ob 



3NF 

WXTCHR 


FFA7 

A2 

00 


gfinuv 

LDX 

i» soc 

CLEAR A.2 

FFA9 

8b 

3E 



SIX 

A2L 


FFAB 

86 

3F 



STX 

A 21! 


FFAD 

B9 

00 

02 

NX'fCH P 

LDA 

IV, Y 

GET CHAR 

FF30 

C8 




IWY 



F FBI 

49 

30 



FOR 

JIS30 


FFB 3 

C9 

OA 



CMF 

* SOA 


FFB5 

90 

D3 



see 

DIG 

IF HEX DIG, THEN 

FFB7 

69 

86 



ADC 

*$66 


FFB9 

C9 

FA 



CMP 

<* $FA 


FFB 3 

bO 

CD 



DCS 

DIG 


FFBD 

60 




PTS 



FFEE 

A9 

FE 


TOSUH 

LDA 

«CO/2 56 

PUSH HIGH-OFOFR 

FFCO 

48 




PH A 


3Ui?R ADR ON SfK 

FFC1 

B9 

E 3 

FF 


LLA 

L., Y 

PUSH 1,0 C ORDER 

FFC4 

48 




PH A 


SUb* AD 1 ? ON STK 

FFC 5 

A5 

31 



LDA 

<ODE 


FFC 7 

AO 

00 


zmode 

LPY 

*soo 

CLP MOOR, OLD MODE 

FFC9 

d4 

31 



STY 

''•ODE 

TO A-REG 

FFCB 

60 




STS 


GO TO SUBR VIA RTS 

FFCC 

BC 



CMRT?L 

DFP 

SBC 

F ("CTRL-C") 

FFCO 

B2 




OFd 

$P 2 

FrCTRL-Y*') 

FFCE 

BE 




DFB 

$3h 

F (“CTRL-F. “ ) 

FFCF 

LD 




DFP 

$ ED 

F (" r “ ) 

FFDO 

EF 




DFP 

SFF 

P (" V" ) 

FFDl 

C4 




OFT 

SC 4 

F("CTPL-K”) 

FFD2 

EC 




DFB 

SIC 

K (“ S " ) 

FFD3 

A9 




PFB 

SA9 

r rCTPL-P-) 

FFD4 

HD 




DFB 

S i? 

F(“CTRL-B") 

FFD5 

Ab 




DFB 

SA6 

F ( *•- ••) 

FFD6 

A4 




DFB 

$A4 

F (••+••) 

FFD7: Ub 




OFF. 

SOe 

K"i"") (F*F.X—OP $P0 + $89) 

FFD8 

95 




DP 3 

$9 5 

F (*•<••) 

FF09 

07 




DFB 

$07 

F (" M “ ) 

FFDA 

02 




DFP 

$02 

FI" I") 

FFDB 

05 




DFB 

$05 

FC I*") 

FFDC 

FO 




OF? 

$ FO 

f rw-) 

FFDD 

00 




OFB 

$00 

f r g “ > 

FFDE 

EB 




DFB 

SFO 

F (., R ., j 

FFDF 

93 




OFB 

$93 

F ( ' : *) 

FFEO 

A7 




DFP 

$A7 

F ( " . “ ) 

FFE1 

C6 




DFB 

$C6 

FC'CR") 

FFE2 

99 




OFB 

$99 

F (BLANK) 

FFE3 

B2 



SJBTFL 

DFB 

4BASC0NT 

-1 

FFE 4 

C9 




DFS 

HISR-1 


FFE 5 

BE 




PFt> 

#RFGZ-1 


FFE 6 

Cl 




DM3 

#TRACF-1 


FFE7 

35 




DF3 

# VFY-l 


FFEd 

8C 




DFP 

#INPRT-1 


FFE9 

C 3 




DFB 

♦STEPZ-l 


FFFA* 

9b 




DFB 

#OUTPRT- 

1 

FFEB 

AF 




DFB 

#XPASIC- 

1 

FFEC 

17 




DFB 

#SETMODE 

-1 

FFED 

17 




DFP 

#3ETM0DF 

-1 

FFEE 

23 




DFB 

*M0VE-1 


FFEF 

IF 




PF3 

# LT-1 
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*********************** 

* * 

* APPLE-II PSEUDO * 

* MACHIME INTERPRETER * 

* * 

* COPYRIGHT 197? * 

* APPLE COMPUTER IiJC * 

* * 

* ALL RIGHTS RESERVED * 

* * 

* S. WOZNIAK * 

* * 
*********************** 

TITLE 'SWEET16 INTERPRETER" 






ROL 

EPZ 

$0 






ROM 

EPZ 

SI 






Pi 4ri 

EPZ 

SID 






R15L 

EPZ 

S1E 






R15H 

EPZ 

: IF 






S16PAG 

EOU 

SF7 






SAVE 

EQU 

SFF4A 






RESTORE 

EQU 

SFF3F 







ORG 

$ F 6 8 9 


F689 

20 

4A 

FF 

Sv/16 

JSR 

SAVE 

PRESERVE 6502 REG CONTFNTS 

F68C 

68 




PLA 



F68D 

85 

IE 



STA 

R15L 

INIT SWEET16 PC 

F68F 

68 




PLA 


FROM RETURN 

F690 

85 

IF 



ST A 

F15H 

ADDRESS 

F692 

20 

98 

F6 

S*»168 

JSP 

SVJ16C 

INTERPRET AMD EXECUTE 

F69 5 

4C 

92 

F6 


jvip 

SW16? 

ONE 3WEET16 INSTR. 

F698 

E6 

IE 


SW16C 

INC 

R15L 


F69A 

DO 

02 



8NE 

SW16D 

INCP S ?FF,T16 PC FOP FETCH 

F69C 

Eb 

IF 



INC 

F15H 


Fb9E 

A9 

F7 


SW160 

LDA 

*S16PAG 


F6A0 

48 




PHA 


PUSH ON STACK FOR PTS 

F6A1 

AO 

00 



LEY 

4 $0 


F6 A 3 

Bl 

IE 



LDA 

(R15L),Y 

FETCH INSTP 

F6A5 

29 

OF 



AND 

£ $ F 

MASK REG SPECIFICATION 

F6A7 

OA 




ASL 

A 

DOUBLE FOP 2- D YTE REGISTERS 

F6A8 

AA 




TAX 


TO X-PEG FOR INDEXING 

F6A9 

4 A 




IS R 

A 


F6A A 

51 

IE 



EOR 

(P15 L) , Y 

NON HAVE OPCODE 

F6AC 

FO 

OB 



3 EG 

TOP? 

IF ZERO THEN NON-REG OP 

FbAE 

66 

ID 



STX 

P14 u 

INDICATE'PRIOR RESULT PEG' 

F6B0 

4A 




LSR 

A 


F6B1 

4A 




LSR 

A 

OPCODE*2 TO LSP'S 

F6B2 

4A 




LSR 

A 


F633 

A8 




r AY 


TO Y-RF'G FOP INDEXING 

F684 

B9 

FI 

F6 


LDA 

CPTBL-2 f 

Y LOU-ORDFP ADR BYTE 

F6B7 

48 




PHA 


ONTO STACK 

F6B8 

60 




PTS 


GOTO REG—0° POUTINE 

F6B9 

E6 

IE 


TO 3 P 

INC 

P.15L 


FbBP 

DO 

02 



BMt; 

L'OHP2 

INCP PC 

Fb3D 

Eb 

IF 



INC 

»15H 


F6BF 

BD 

F 4 

Fb 

TC3S2 

LDA 

pftpti t x 

LOW-ORDER ADP LYTF 

F6C2 

48 




PHA 


ONTO STACK FOR NON-RFC OP 

F6C3 

A5 

ID 



LDA 

P. 14 H 

•PRIOR RESULT PEG* INDEX 

F6C 5 

4 A 




LSP 

A 

PREPAPF CARRY FOR PC, BNC. 

F6C6 

60 




RTS 


GOTO NON-PEG OP ROUTINE 

F6C7 

68 



RTM2 

PLA 


POP RETURN ADDRESS 

F6C8 

68 




PLA 



F6C9 

20 

3F 

FF 


JSR 

RESTORE 

PESTORF 6502 REG CONTENTS 

F6CC 

6C 

IE 

00 


JNP 

(P15L) 

RETURN TO 6502 CODE VIA PC 

FbCF 

Bl 

IF 


SETZ 

LDA 

(P15L) r Y 

HIGH-ORDER BYTE OF CONSTANT 
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F6D1 

95 

01 



STA 

ROM , X 


F*D3 

88 




DEY 



FoD4 

131 

IE 



LOA 

(1U5L) , Y 

LOW-ORDFR PYTF OF CONSTANT 

F6D6 

95 

00 



STA 

ROL,X 


F6D8 

98 




TYA 


Y-REO CONTAINS 1 

F6D9 

38 




SEC 



FoDA 

b r > 

IE 



ADC 

i l SI. 

ADD 2 TO PC 

FbDC 

85 

IE 



STA 

RISE 


F6DE 

90 

02 



BCC 

SET 2 


F6E0 

Eb 

IF 



INC 

R15H 


F6E2 

60 



SET 2 

RTS 



F6E 3 

02 



GPTBL 

OFF 

SLT-1 

(IX) 

6E4 

F9 



PPTBt. 

DFU 

Rl’N-1 

(0) 

FbE5 

04 




DFB 

LO-1 

(2 X) 

F6Eb 

90 




OFF 

B-i-1 

(1) 

FbE7 

OD 




OFF 

ST-1 

(3X) 

FbEB 

9 E 




DFR 

B NC — 1 

(2) 

F6E9 

25 




OFfc3 

lDAT-1 

(4 X) 

F6EA 

AF 




D Ft* 

BC-1 

(3) 

FbEB 

16 




DFP 

STAT-1 

(5X) 

FbEC 

B2 




DFB 

BP-1 

(4) 

F6ED 

47 




DFP 

LDDAT-i 

(6X) 

F6EE 

B9 




DFB 

BM-1 

(5) 

FbEF 

51 




DFB 

STDAT-1 

(7X) 

FbFO 

CO 




DFB 

nz-l 

(6) 

F6F1 

2F 




DFP 

POP-1 

(RX) 

F6F2 

C9 




DFB 

BNZ-1 

(7) 

F6F3 

5B 




DFB 

STPAT-1 

( Q X) 

F6F4 

D2 




DFB 

R.Ml-1 

(8) 

F6F5 

85 




DFB 

ADD-1 

(AX) 

F6Fb 

DD 




DFB 

3N M 1-1 

(9) 

FbF7 

6E 




DFB 

SU3-1 

(BX) 

F6F8: 05 




DFP 

RK-1 

(A) 

F6F9 

33 




DFB 

PCPD-1 

(CX) 

FbFA 

E8 




DFB 

PS-1 

(B) 

F6FB 

70 




DFB 

CPR-1 

(OX) 

F6FC 

93 




DFB 

3S-1 

(C) 

F6FD 

IE 




DFB 

INR-1 

(FX) 

FbFE 

E7 




DFB 

NUL-1 

(D) 

FbFF 

65 




DFB 

DCR-1 

(FX) 

F700 

E7 




DFB 

NUL-1 

(E) 

F701 

E7 




DFB 

NUL-1 

(UNUSED) 

F702 

E7 




DFB 

NUL-1 

(F) 

F703 

10 

CA 


SET 

BPL 

SETZ 

ALWAYS TAKEN 

F705 

B5 

00 


LD 

LDA 

ROL, X 






BK 

EQU 

*-l 


F707 

: 85 

00 



STA 

ROL 


F709 

: B5 

01 



LDA 

R 0 H , X 

MOVE RX TO RO 

F70B 

: 85 

01 



STA 

ROH 


F70D: bO 




RTS 



F70E 

: A5 

00 


ST 

LDA 

ROL 


F710 

: 95 

00 



STA 

ROL, X 

MOVE RO TO RX 

F712 

: A5 

01 



LDA 

ROH 


F714 

: 95 

01 



STA 

ROH, X 


F716: 60 




RTS 



F 717 : 

: A5 

00 


STAT 

LDA 

POL 


F719: 

: 81 

00 


STAT2 

STA 

(ROL,X) 

STORE BYTE INDIRECT 

F71B: 

: AO 

00 



LDY 

ISO 


F71D: 

: 84 

ID 


STAT 3 

STY 

R14H 

INDICATE RO IS RESULT REG 

F71F: F6 

00 


INR 

INC 

R 0 L, X 


F721: 

: DO 

02 



5NE 

I NR 2 

INCR RX 

F 7 2 3! 

: F6 

01 



INC 

ROH, X 


F7 2 5: 

: 60 



I NR 2 

RTS 



F 7 2 6 : 

: Al 

00 


LDAT 

LDA 

( ROL,X) 

LOAD INDIRFCT (RX) 

F728! 

: 85 

00 



STA 

POL 

TO RO 

F72A: 

: AO 

00 



LDY 

ISO 


F72C: 

: 84 

01 



STY 

ROH 

ZERO HIGH-ORDER RO BYTE 

F72E s 

: FO 

ED 



BEO 

STAT 3 

ALWAYS TAKEN 

F730: 

: AO 

00 


POP 

LDY 

ISO 

HIGH ORDER BYTE = 0 

F732 

FO 

06 



BEO 

POP2 

ALWAYS TAKEN 

F734 

20 

66 

F7 

POPD 

JSR 

DC R 

DECR RX 

F737 

Al 

00 



LDA 

(ROL,X) 

POP HIGH-ORDER BYTE ARX 

F739 

A8 




TAY 


SAVE IN Y-REG 

F73A 

20 

66 

F7 

POP2 

JSR 

OCP 

DECR. RX 

F73D 

Al 

00 



LDA 

(ROL,X) 

LOW-OPDER BYTE 

F73F 

85 

00 



STA 

ROL 

TO RO 

F741 

84 

01 



STY 

ROli 


F743 

AO 

00 


POP3 

LDY 

ISO 

INDICATE RO AS LAST RSLT REG 

F745 

84 

ID 



STY 

R14H 


F747 

60 




RTS 



F7 48 

20 

2b 

F7 

LD9AT 

JSH 

LDAT 

LOW-ORDER BYTF; TO RO, INCR PX 

F74B 

Al 

00 



LDA 

(R 0 L, X) 

HICM-ORDFR BYTE TO RO 

F74D 

85 

01 



STA 

ROM 


F74F 

4C 

IF 

F7 


J*P 

INR 

INCR RX 

F752 

20 

17 

F7 

ST DAT 

JSR 

STAT 

STORE INDIRFCT LOW-ORDER 
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F755 

A5 

01 



LDA 

ROB 

BYTE AND INCH PX. THEN 

F757 

81 

00 



STA 

(R 0 L, X) 

STORE HIGH-ORDER BYTE. 

F759 

4C 

IF 

F7 


JMP 

INR 

INCR RX AMD RETURN 

F75C 

20 

66 

F7 

STPAT 

JSP 

DCF 

DECP FX 

F75F 

A5 

00 



LDA 

ROL 


F761 

81 

00 



STA 

(P0L,X) 

STORE PO LOvv BYTE ORX 

F 76 3 

4C 

43 

F7 


JMP 

POP3 

INDICATE PO AS LAST RSLT PEG 

F766 

B5 

00 


DC R 

LDA 

R 0 L, X 


F768 

DO 

02 



BNE 

DC R 2 

DECR P X 

F76A 

D6 

01 



DFC 

ROH,X 


F76C 

D6 

00 


DC R 2 

DEC 

ROL, X 


F76E 

60 




RTS 



F76F 

AO 

00 


SUB 

LDY 

#so 

RESULT TO RO 

F771 

38 



CPR 

SEC 


NOTE Y-REG = 13*2 FOR CPR 

F772 

A5 

00 



LDA 

ROL 


F774 

F5 

00 



SBC 

ROL, X 


F776 

99 

00 

00 


STA 

ROL, Y 

RO-RX TO RY 

F779 

A5 

01 



LDA 

ROH 


F77B 

F5 

01 



SBC 

R 0 H , X 


F77D 

99 

01 

00 

SUB2 

STA 

ROH, Y 


F780 

98 




TYA 


LAST RESULT REG*2 

F781 

69 

00 



ADC 

#$0 

CARRY TO LSB 

F783 

85 

ID 



STA 

R14H 


F785 

60 




RTS 



F786 

A5 

00 


ADD 

LDA 

ROL 


F788 

75 

00 



ADC 

R0L,X 


F78A 

85 

00 



STA 

ROL 

RO+RX TO PO 

F78C 

A5 

01 



LDA 

ROH 


F78E 

75 

01 



ADC 

R 0 H , X 


F790 

AO 

00 



LDY 

#$0 

RO FOR RESULT 

F792 

FO 

E9 



BEO 

SU32 

FINISH ADD 

F794 

A5 

IE 


BS 

LDA 

R15L 

NOTE X-REG IS 12*2! 

F796 

20 

19 

F7 


JSR 

ST AT 2 

PUSH LO^ PC BYTE VIA R12 

F799 

A5 

IF 



LDA 

P.15H 


F79B 

20 

19 

F7 


JSR 

STAT2 

PUSH HIGH-ORDER PC BYTE 

F79E 

18 



SR 

CLC 



F79F 

BO 

OE 


BNC 

BCS 

BNC 2 

NO CARRY TEST 

F7A1 

Bl 

IE 


3R1 

LDA 

(R15I),Y 

DISPLACEMENT BYTE 

F7A3 

10 

01 



3PL 

DR 2 


F7A5 

88 




DEY 



F7A6 

65 

IE 


3R2 

ADC 

R15L 

ADD TO PC 

F7A8 

85 

IE 



STA 

R15L 


F7AA 

98 




TYA 



F7AB 

65 

IF 



ADC 

R15H 


F7AD 

85 

IF 



STA 

R1 5 H 


F7AF 

60 



BNC 2 

RTS 



F7B0 

BO 

EC 


SC 

BCS 

BP 


F7B2 

60 




RTS 



F7B3 

OA 



BP 

ASL 

A 

LOUELE RESULT-PEG INDEX 

F7B4 

AA 




TAX 


TO X—REG FOR INDEXING 

F7B5 

B5 

01 



LDA 

»0H,X 

TEST FOR PLUS 

F7B7 

10 

E8 



BPL 

BP 1 

BRANCH IF SO 

F7B9 

60 




RTS 



F7BA 

OA 



3 M 

ASL 

A 

DOU3LF RESULT—PEG INDEX 

F7BB 

A A 




TAX 



F7BC 

B5 

01 



LDA 

ROH/X 

TEST FOR MINUS 

F7BE 

30 

El 



BMI 

BP1 


F7C0 

60 




RTS 



F7C1 

OA 



BZ 

ASL 

A 

DOUBLE RESULT-PEG INDEX 

F7C2. 

AA 




TAX 



F7C3 

B5 

00 



ICA 

ROL, X 

TEST FOR ZERO 

F7C5 

15 

01 



OP A 

R 0 H , X 

(BOTH BYTES) 

F7C7 

FO 

08 



DEO 

•3 FI 

BRANCH IF SO 

F7C9 

60 




PTS 



F7CA 

OA 



EM 7. 

ASL 

A 

DOUBLE RFSULT-REG INDEX 

F7CB 

AA 




TAX 



F7CC 

B5 

00 



LDA 

ROL, X 

TEST FOR NONZERO 

F7CE 

15 

01 



ORA 

ROH, X 

(BOTH BYTES) 

F7D0 

DO 

CF 



9NE 

BP 1 

BRANCH IF SO 

F7D2 

60 




RTS 



F7D3 

OA 



BMl 

ASL 

A 

DOUBLE RF.SULT-REG INDEX 

F7D4 

AA 




TAX 



F7D5 

B5 

00 



LDA 

ROL, X 

CHECK BOTH BYTES 

F7D7 

35 

01 



AND 

ROH , X 

FOP $FF (MINUS 1) 

F7D9 

49 

FF 



EOR 

# $FF 


F7DB 

FO 

C4 



BEQ 

BPl 

BRANCH IF SO 

F7DD 

60 




PTS 



F7DE 

OA 



BN Ml 

ASL 

A 

DOUBLE RESULT-PEG INDEX 

F7DF 

AA 




TAX 



F7E0 

B5 

00 



LDA 

ROL, X 


F7E2 

35 

01 



AND 

ROH, X 

CHECK BOTH BYTES FOR NO $FF 

F7E4 

49 

FF 



EOR 

#$FF 


F7E6 

DO 

B9 



BNE 

BPl 

BRANCH IF NOT MINUS 1 

F7E8 

60 



NUL 

PTS 



F7E9 

A2 

18 


RS 

LDX 

#$18 

12*2 FOR R12 AS STK POINTER 
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F7EB: 

20 

66 

F 7 

J3R 

DCR 

F7EE: 

Al 

00 


LDA 

( R 0 Li, X) 

F7F0: 

85 

IF 


STA 

R15H 

F7F2: 

20 

66 

F7 

JSP 

DCR 

F7F5: 

Al 

00 


LDA 

(R0L,,X) 

F7F7: 

85 

IE 


STA 

R15L 

F7F9: 

60 



RTS 


F7FA: 

4C 

C7 

F6 RTN 

J'AP 

RTNZ 


decr stack pointer 

POP HIGH RETURN ADR TO PC 
3AfiF FOR LOW-ORnER BYTE 
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HOOFDSTUK 9 DISK DRIVES 


1. HET GEBRUIK VAN DISK DRIVtS 


De disk drive eenheden van de APPLE-II computer vormen een 
welkome aanwinst voor oe professionele gebruiker. De disk 
drive verschaft in weinig ogenbiikken toegang tot grote 
hoeveelheden magnetisch vastgelegde informatie. Het z.g. 
DISK-II systeem van de APPLE kan ruim 120.000 tekens 
opslaan op kleine, flexibele, magnetische diskettes. Deze 
diskettes zijn verpakt in een stijve, vierkante enveloppe 
van ca. 12 cm2. De computerinformatie wordt er -evenals 
bij een cassettebandje- door een electronische 
lees/schrijfkop op overgebracht. De computer bestuurt 
deze kop en kan hem boven elke gewenste positie op de 
diskette brengen. Hierdoor wordt de diskette min of meer 
willekeurig toeganke1 1 jk . Er is sprake van "Random 
Access". 

0m de disk drive te besturen, is er speciale programmatuur 
geschreven. Voor een deel is de besturingslogica in de 
disk drive zeif aanwezig. 0m de disk drive evenwel met de 
computer te verbinden, is er een "tussenschakel " nodig: 
de z.g. Interface. De disk interface bevat eveneens 
besturingslogica. Tenslotte wordt door de computer nog 
een lees/schrijfprogramma op de diskettes geschreven, 
zodat ze -na te zijn "geinitia 1iseerd " - door de 
diskettestations kunnen worden "gelezen". 

Dit geheel van programmatuur vormt het DISK OPERATING 
SYSTEM: D.O.S. Het D.O.S. bestuurt de gegevensoverdracht 
tussen diskettestations en computer. 



9- 1 









TRACKS & SECTOREN 


Om het mogelijk te maken een bepaald gegeven van de 
diskette te lezen, verdeelt het APPLE DOS de kleine 
diskette in 35 concentrische ringen. Deze 
informatieringen zijn geniunmerd van 0 t/m 34. Men noemt 
de ringen "tracks". Track 0 vormt de buitenste ring van 
de diskette, track 17 de middelste en track 34 tenslotte 
de binnenste ring. In zekere zin kun je de tracks 
vergelijken met de groeven van een gramofoonp 1 aat. Echter 
zijn de tracks dus geen informatie-sp i raa 1 , zoals de 
groef van een gramofoonplaat: het zijn ringen, die in 
elkaar liggen. Evenals dit het geval is bij een 
platenspeler draait de diskette met een konstante snelheid 
rond, terwijl gegevens van en naar zijn oppervlak worden 
geschreven. 

Een "stappenmotor" in de disk drive zorgt er nu voor, dat 
de opname/weergavekop gelijkmatig boven de diskette wordt 
heen en weer geschoven. Om de kop 1 track te laten 
verschuiven zijn 2 fasen van de stappenmotor vereist. Dus 
in principe zou de diskette tweemaal 35 tracks kunnen 
bevatten, ware het niet, dat de lees/schrijfkop een 
onvoldoende gevoel igheid heeft voor dergelijke kleine 
stappen. Hij zou niet meer herkennen boven welke track hij 
zich bevond. 

Een sector is een onderverdeling van de track. Het DOS 
schrijft meestal sector voor sector, en leest zo 
eveneens. Hierdoor wordt voorkomen, dat een te groot deel 
van het geheugen gebruikt moet worden als 
"voorraadschuur" voor over te zetten gegevens. Een 
"voorraadschuur" met gegevens noemt men een buffer. Het 
APPLE DOS 3.3 kent aan een track 16 sectoren toe. Het 
vroegere DOS 3.2 (.1) maar 13 sectoren. Elke sector bevat 
256 bytes informatie. Je kunt nu dus uitrekenen welke 
gegevenscapaciteit een mini-diskette heeft. 

De kracht van het DISK OPERATING SYSTEM schuilt erin, dat 
het d.m.v. een soort inhoudsopgave, die het zelfstandig 
bijhoudt, elke gezochte byte kan vinden. Wanneer je 
immers de track en de sector weet, waar zich die byte 
moet ophouden, is het zoeken verder weinig opwindends! 

Toch is er nog een bijzonderheid te vermelden. In de 
diskette zit afgezien van het grote centreringsgat een 
kleine opening. Men noemt dit gat het "Indexgat". Wanneer 
de diskette wordt rondgedraaid, valt er door dit kleine 
gat een 1ichtbundeltje op een sensor, die de computer dan 
precies kan laten weten, waar zich de eerste sector 
bevindt. Op grond van de waarneming door die sensor kan 
de computer vervolgens alle overige sectoren berekenen en 
vinden. 

Op de verpakking van dit type diskettes staat, dat zij 
"soft-sectored" zijn. Dit doet je direkt vermoeden, dat 
er dus ook "hard-sectored" diskettes bestaan. Dat is 
j uist! 

De hard-sectored diskettes zijn voorzien van een reeks 
gaatjes, die ieder het begin van een sector aanduiden. De 
APPLE DISK II kan zoveel soft- als hard-sectored 
diskettes verwerken. 
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3. HET HANTEREN VAN DE DISKETTE 

Het behoeft geen betoog, dat je voorzichtig moet zijn met 
de diskettes, of floppy disks. Hoewel zij verpakt zijn in 
een kunststof hoesje, dat op zijn beurt in een kartonnen 
enveloppe past, blijven het kwetsbare informatiedragers. 
Er gelden een aantal regels voor het gebruik van floppy 
disks, die we hier ter overweging geven : 

-raak nimmer het open lees/schrijfvenster aan. 

diskettes verdragen geen vingerafdrukken. 

-houdt de diskette zoveel mogelijk stofvrij. 

laat diskettes niet ronds1ingeren/berg ze op! 

-doe de diskette voorzichtig in de disk drive. 

voorkom kreuken en vouwen. 

-houdt de diskette uit een magnetische omgeving. 

leg geen diskette op de TV-monitor! 

-houdt de diskette uit de voile zon. 
boven 40 graden C. legt hij het loodje. 

A1 s je deze eenvoudige en logische regels volgt, kun je 
1 ang genoegen beleven van de diskette. 

Diskettes kun je bewaren in de kleine omslagdozen, waarin 
ze worden geleverd, maar ook in fraaie plastic 
opbergdozen. Bekijk ze eens bij je dichtstbijzijnde 
computershop. 

Over de levensduur van diskettes zijn de deskundigen het 
niet eens. Wanneer moet je een diskette gaan vervangen ? 
Ervaren programmeurs doen dit, wanneer er plotseling 
moei1ijkheden gaan ontstaan met het "aanspreken" van de 
diskette. "Hij start niet meer goed op," noemen zij dit 
wel. Wanneer dat niet wordt veroorzaakt door vervuiling 
van de DISK INTERFACEKAART in de computer zelf, is de 
diskette aan zijn pensioen toe. Hij is dan nog goed 
genoeg voor leuke spelletjes of probeersels, maar niet 
meer betrouwbaar voor belangrijke gegevens-bestanden. 



4. WELK DISK-SYSTEEM IS VOOR MIJ GESCHIKT ? 


Welk disksysteem uiteindelijk het meest in aanmerking 
komt bij de APPLE-II is in belangrijke mate afhankelijk 
van de toepassing. Gewoonlijk zal het compacte APPLE-DISK 
II Systeem voldoende zijn. Het DISK II Systeem heeft een 
bescheiden capaciteit met vooralsnog niet meer dan 
120.000 bytes informatie per diskette. Het is 
aannemelijk, dat deze waarde binnenkort verdubbeld kan 
worden. Per DISK INTERFACE kaart kunnen 2 disk drives 
worden aangestuurd, hetgeen voor meer professioneel 
gebruik een noodzaak is. Een disk drive is hiervoor 
ontoereikend. 

Wie evenwel met grote hoeveelheden gegevens moet werken, 
zal niet voldoende hebben aan 2 kleine disk drives. Meer 
in aanmerking komen dan de grotere, 8-inch d i sksystemen, 
waarvan er maar weinig echt aansluiten op het uitstekende 
APPLE DOS. Een zeer betrouwbaar en volmaakt compatibel 
systeem is b.v. het voordelige "MULTIBYTE"-diskstation. 

De "MULTIBYTE" diskdrives zijn de grote broers van de b 
1/4-inch DISK II ministations van APPLE. Deze grote 
broers zijn bestemd voor ze 1 fstandigen, ondernemers, 
mensen in vrije beroepen en bedrijfsafde1ingen, die een 
professioneel gebruik willen maken van de APPLE computer. 
De capaciteit van de 8-inch maxi-f1oppies ioopt van O.b 
tot 4.8 Megabyte. Een Megabyte is 1 miijoen bytes. Wie 
hieraan nog niet voldoende heeft, kan een beroep doen op 
enkele typen vaste schijvengeheugens. Het gaat hierbij om 
disk drives, waarin een of meer vaste magneetschijven 
werden aangebracht. Door hun speciale bouw kunnen deze 
"hard-disks" van 1.2 tot wel 100 Megabyte bevatten. Maar 
het is zeer de vraag, of dit type schijfgeheugens onder 
alle omstandigheden zal blijven voldoen. Wie loopt er 
immers graag in een veel te groot pak rond ? En wie zou 
het zonder copieen willen stellen van zijn grote 
databestand ? De professionele gebruiker doet er zeker 
goed aan zich vooraf door een deskundig adviesbureau te 
laten inlichten. 

Af te raden is het, om voor zuiver professioneel gebruik 
gebruik te maken van allerlei "koopjes", die met name 
vaak op de hobbiemarkt zijn te vinden. Net zomin je je 
bedrijfsgegevens op een WC-papiertje schrijft en bewaart, 
kun je belangrijke computergegevens bewaren op een 
floppy-disk, die door de fabriek bijna werd afgekeurd en 
"goedkoop" op de markt werd gedumpt! 

Hetzelfde geldt voor diskette-stations. Alle waar is naar 
zijn geld ..., zelfs in computer 1 and. 
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5. VAN PR It TUT CATALOG 


Bij de aanschaf van je diskette-station(s) kreeg je een 
"DOS MANUAL" uitgereikt, alsmede een of meer diskettes. 
Daaronder bevindt zich zonder twijfel een z.g. MASTER 
diskette. 

Alvorens met de diskettes te kunnen werken, zullen wij de 
diskdrive(s) aan moeten sluiten op de APPLE COMPUTER. 
Daartoe nemen we het deksel van de APPLE II voorzichtig 
af. Schakelen de stroom uit en steken de DISK 
INTERFACEKAART, waaraan de platte stationskabel vast moet 
zitten, in Slot b. Hierna sluiten wij de computer en 
schakelen we de stroom weer in. 

Er kunnen nu 2 dingen gebeuren : 

1. het lichtje op de diskdrive gaat aan 

2. je ziet alleen een rommeitje op het beeldscherm 
met het * teken als prompt. 

In het eerste geval zorgt de Autostart ROM van de APPLE 
II ervoor, dat direkt na het inschakelen van de computer 
informatie wordt gevraagd van het diskettestation . In 
het tweede geval zullen we met de hand enkele 
voorbereidende stappen moeten zetten. 

Om in het eerste en thans meest voorkomende geval de 
diskdrive tot stilstand te brengen, is een druk op de 
RESET-toets nodig. Eventueel CTRL-RESET. Doe nu 
voorzichtig de klep van het diskstation open en schuif de 
master diskette zachtjes naar binnen. Weest 
voorzichtig voor deze vitale systeem-master: je zult hem 
nog vaak nodig hebben. Sluit de klep van de diskdrive. 

Tik nu vanuit Applesoft het volgende commando: 

PR# 6 (RETURN) 

De diskdrive moet nu werken. Het rode "IN USE"-lichtje 
gaat aan. En na enig geratel en geschuifel verschijnt een 
tekst op het beeldscherm, die kennelijk van de 
masterdiskette afkomstig is. Gefe1iciteerd! 

Maar wat moet je doen, om te weten, wat er verder op de 
schijf aanwezig is ? Een masterdiskette staat vol met 
nuttige programma's, die je later veel zult willen 
gebruiken. Tik daarom het volgende commando: 

CATALOG (RETURN) 

Weer die enge ratel geluiden, maar ... kijk eens aan ! 

Dat staat dus op je master-diskette. 

Het CATALOG-commando geeft voor elk programma op de 
schijf een overzicht van het programma-type, het aantal 
sectoren dat het programma inneemt, of het programma 
tegen ongewild overschrijven is beveiiigd (ge-locked -*), 
en de naam van het programma. 
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Is de schijf zo vol met programme's, dat er meer dan 20 
regels voor het afbeelden van de CATALOG nodig zijn, dan 
stopt de computer even en wacht tot je op het keyboard 
tikt alvorens de rest van de CATALOG te laten zien. 

Wie geiijk met een 8-inch systeem is gaan werken, dat 
APPLE DOS compatibel is, zal op dezelfde wijze kunnen 
werken, doch meestal zal de DISK INTERFACE in Slot 7 
resideren, wat tot gevolg heeft, dat het opstart-commando 
P R H / wordt. We gaan er verder vanuit, dat met de APPLE 
DISK II stations wordt gewerkt. 
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6.DIREKTE D.0.S.-COMMANDO 1 S 

Bij de af 1 evering van de APPLE DISK II stations wordt het 
z.g. DOS MANUAL uitgereikt. Het is zeer aan te bevelen, 
dit uitstekende handboek door te lezen. Wie gebruik maakt 
van andere, maar APPLE compatibele diskettestations (b.v. 
de MultiBytes), doet er goed aan de handleiding bij het 
systeem voorafgaand aan verder gebruik door te nemen. 
"Waarom deze overbodige regels?," zul je vragen. 

Het is helaas maar al te vaak voorgekomen, dat 
gebruiksmoei1ijkhe- den ontstonden door onvoldoende 
inzicht in de eigenaardigheden van het disksubsysteem . 

Hoe vaak er niet belangrijke data-bestanden zijn verloren 
gegaan door onjuist disk-gebruik, kan men zich nauwelijks 
voorstelien! 

De hierna volgende diskcommando ' s geven een summier 
overzicht van de moge1ijkheden van het APPLE DOS. 

LOAD <f i lenaam > 

Het LOAD commando leest een programma van de diskette en 
plaatst het in het werkgeheugen. Indien de opgegeven 
programmanaam niet op de diskette voorkomt, volgt de 
foutmelding FILE NOT FOUND. 

Al s het aangeroepen programma een Binary file is, of een 
Text file, dan volgt de foutmelding FILE TYPE MISMATCH. 
LOAD wist het programma, dat nog in het werkgeheugen 
resideert en schrijft het aangeroepen programma daarin 
over. Hierna kan het programma worden gerunned, of 
gemodificeerd. 

RUN < filenaam > 

Om het gebruiksgemak op te voeren, werd een speciaal DOS 
RUN commando opgenomen. Het is niet noodzakelijk eerst 
een programma te loaden en het daarna te runnen. Je kunt 
direkt een programma op de diskette gaan runnen. 

Het commando RUN COPYA brengt direkt het APPLE 
copieerprogramma in werking, dat wij nodig zullen hebben 
voor het maken van onze eerste back-up copie. Enwel van de 
systeem-m aster diskette. Doe een lege diskette in je 
tweede diskettestation, of -indien je dit nog niet hebt- 
houdt de lege diskette bij de hand. Volg de aanwijzingen 
van het COPYA programma op en binnen enkele ogenblikken 
is de copie van de masterdiskette gereed voor gebruik. 

INIT < filenaam>,(<slot>,<drive>, < volume>) 

Voor je een diskette kunt gebruiken, dient hij z.g. 
geinitia 1iseerd te zijn. Mocht je nu denken, dat achter 
dit moeilijke woord een oeroude inwijdingsrite schuil 
gaat, dan heb je het eigenlijk niet eens mis. Kijk, een 
diskette is bij aflevering meestal een onbeschreven blad. 
Hoe kan het DOS daar nu zijn weg op vinden ? Het 
initialiserings-proces zorgt hiervoor en tijdens dit 
proces wordt de gehele schijf schoongeveegd voor nieuw 
gebruik. De tracks en sectoren worden gemarkeerd. Door 
middel van frequentiemodulatie worden synchronisatiebits 
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op de schijf geschreven, waardoor het mogelijk wordt dat 

de computer later precies de goede track en sector met ie 
programma kan vinden. 

Zoals je misschien bij het copieren van je masterdiskette 
hebt opgemerkt, 1 nitia 1 iseerde het COPYA-programma de 
nieuwe schijf eerst, alvorens de masterdiskettete 
copieeren. Het programma noemde dit "formatting". Bij 
grote 8-inch diskettes gaat het "formatteren" zelfs aan 
het initialiseren vooraf! 

Het 1NIT commando is van veel betekenis. Het maakt je 
diskette gereed voor gebruik. Geef je het INIT commando, 
dan gebruikt de computer het in het werkgeheugen 
aanwezige programma als toekomstig en praktisch 
onvervangbaar "begroetingsprogramma". Het is dus 
uitkijken geblazen met INIT ! Beter is, om een standaard 
gewoonte aan te leren voor het maken van een 
begroetingsprogramma. Hier volgt een voorbeeld: 

]10 REM INIT D.D. 05/12/81 
15 PRINT CHR$(4);"CATALOG" 

20 END 

Doe nu een lege schijf in de diskdrive en tik INIT 
HELLO,D1 (of 2?),S6 (of ander Slot, je hoett dit niet te 
specificeren ),V001 (volume mag je weglaten, vervalt dan 
naar 254 ). 

] 1NIT HELLO,D1,S6,V1 . 

Nu gaat het IN USE lichtje van de opgegeven drive branden 
en komen de bekende klikkende geluidjes uit de diskdrive. 
Ongeveer 30 seconden later heb je je eerste 
geinitialiseerde programmadiskette, die we verder zullen 
gebruiken. 

Doe de geinitial iseerde diskette in drive 1 en tik 
PR#( slotnr.). 

Begrijp je, wat er nu is gebeurd ? 

Het is duidelijk, dat INIT alleen werkt, wanneer het DOS 
in de computer aanwezig is; dus na het opstarten met een 
geinitial iseerde diskette. 

Wordt een Slot genoemd, waarin geen interface zit, dan 
"hangt" de computer tot RESET wordt gegeven. 

Wordt in een programma een disk Volume nummer gegeven en 
stemt dat niet overeen met het Volumenummer van de 
ingeschoven diskette, dan volgt de melding VOLUME 
MISMATCH. Je moet een weldoordacht gebruik maken van deze 
mogel i jkheid. 

Wordt een Drive nummer gegeven, dat niet aanwezig is, dan 
kunnen er vreemde dingen gebeuren. Soms hangt de computer 
tot RESET wordt gegeven. Soms treedt een willekeurige 
drive in werking. 

SAVE <filenaam>, (<slot>,<drive>,<volume>) 
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Met het SAVE commando is net mogelijk een programma op de 
diskette te bewaren. Probeer het volgende: 

10 PRINT "DAAR GAAT IE DAN" 

15 PRINT "MIJN EERSTE PROGRAMMA OP SCHIJF" 

ZO END 
SAVE HUPLA 

Lampje gaat aan; enig geschuifel en klaar. Tik 
nu RUN HUPLA en ... 

LOCK <; f i lenaam> 

Met LOCK is het mogelijk een programma tegen ongewild 
wissen te beschermen, maar niet tegen initia 1iseren . Een 
ge-lock-te tile is bij een CATALOG herkenbaar aan het * 
teken voor de programmanaam. 

UNLOCK <f i l,enaam> 

Het tegenovergestelde van LOCK. Het programma kan nu 
worden gewijzigd en teruggeschreven naar de diskette. 
Proberen we een gelockt programma na wijzigingen terug te 
schrijven, dan volgt FILE LOCKED. 

RENAME <f i lenaam> 

Met RENAME kunnen we een bestaand programma een andere 
naam geven. 

Het protocol luidt b.v.: RENAME HUPLA,HOEPLA (return). 
Oppassen met RENAME als je het INIT-programma hiermee wilt 
bewerken. De schijf zal bij het booten het oorspronke1ijke 
begroetingsprogramma niet meer kunnen vinden en de 
boot-operatie stopt met de melding: FILE NOT FOUND 

DELETE <filenaam > 

DELETE wist een programma van de schijf en geeft de 
ingenomen tracks en sectoren vrij voor overschrijving 
door een nieuw op te nemen programma, zonder het oude 
voora1 snog te vernietigen. Alleen goed ingevoerde 
programmeurs kunnen een per ongeluk ge-delete programma 
nog terugroepen, zolang er verder maar niets op de schijf 
wordt ge-saved! 

VERIFY <filenaam> 

Een wat mysterieus commando, dat je in staat stelt 
bepaalde gegevens op de schijf te controleren. Indien een 
schijf is beschadigd kunnen gedeelten van de data zijn 
verminkt en klopt een verificatie van de data niet meer. 

De z.g. bit-checksum komt dan niet uit. De computer 
berekent dit voor je. Klopt het niet, dan volgt het 
tragische bericht: I/O ERROR. Het bestand is dan 
onbruikbaar gebleken. 
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7. DOS PROGRAMMA COMMANDO'S 


lot zover hebben wij uitsluitend direkte DOS commando's 
besproken, die vanaf het keyboard werden ingegeven. 
Natuurlijk is het mogelijk DOS commando's te geven vanuit 
programma's. Een voorbeeld daarvan zag je reeds bij het 
INIT programma. Op dit thema gaan we hierna verder in. 

Om het DOS vanuit een programma aan te roepen, moeten we 
een "disk-controle"-teken gebruiken. Heel toepasselijk 
wordt daarvoor bij het APPLE DOS het teken: CTRL-D 
gebruikt. CTRL-D, of ASCII-code 4, is het toverteken, dat 
het ons in staat stelt interaktief met het Disk Operating 
System te werken. Zoals gesteld zijn er 2 opties 
mogelijk, die beide hetzelfde effekt hebben: 

a) CTRL-D intikken 

b) CHR$(4 ) intikken 

Nu zouden beide stuurcommando's in een programma wat uit 
de lucht komen vallen, daarom volgen ze direkt na een 
afzonderlijk PRINT statement. Dus: PRINT CHR$(4), of 
PRINT"". Tussen de "" staat het onzichtbare CTRL-D teken. 
Omdat het Integer Basic van de oorspronkelijke APPLE II 
geen CHR$-commando kent, zullen gebruikers van die taal 
terug moeten vallen op "", waartussen CTRL-D wordt getikt 

Een tamelijk ingevoerd gebruik is, dat men vooraan in een 
programma een string variabele benoemt, met de kwaliteit 
CTRL-D. Meestal gebruikt men hiervoor D$. Een kort 
programma, dat een CATALOG teweegbrengt, ziet er daarom 
zo uit: 

10 D$=CHR$(4) 

15 PRINT D$; "CATALOG" 

20 END 

RUN dit programma en SAVE het, met een naam naar uw keuze 
Misschien is dit wel een aardig INIT programma ? 

Natuurlijk zijn de moge1ijkheden veel groter en 
professioneler. Daarover nu het volgende. Het APPLE DOS 
laat toe, dat vanuit bepaalde programma's gegevens naar 
en van de schijf getransporteerd worden. Het is dus 
mogelijk een ledenadministratie, een boekhouding, een 
adresbestand, berekeningen en hun uitkomsten op de schijf 
op te slaan. Een computerbestand noemt men een File 
(spreek uit: faail). De APPLE II kent 2 soorten files. 

Ten eerste het sequentiele bestand; ten tweede het 
willekeurig toeganke1ijke bestand. 

In een sequentieel bestand kan men slechts gegevens 
terugzoeken door bij het begin van het bestand met zoeken 
aan te vangen totdat men het gezochte onderwerp heeft 
gevonden. Een omslachtig gebeuren, dat niet altijd 
voordelen heeft. 

In een "random access" bestand kan men op specificatie 
gegevens terugvinden, zonder dat de hele file doorzocht 
moet worden. Je kunt raden, dat deze werkwijze het meest 
wordt toegepast bij bedrijfsprogrammatuur. 
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A. HET SEQUENTItEL BESTAND 

De DOS commando's OPEN ,READ/WRITE,CLOSE hebben betrekking 
op het werken met sequentiele files. Voordat men een 
sequentieel bestand kan aanleggen, zal het DOS een paar 
maatregelen moeten nemen. Zo zal het ruimte op de 
diskette moeten reserveren voor de file, en moeten 
controleren, of de genoemde file al aanwezig is. Voorts 
moet het DOS een buffer vrij maken voor het opvangen van 
gegevens, die ingelezen of weggeschreven worden. De true 
werkt als volgt: 

10 D$=CHR$(4) : REM CTRL-D WEET JE NOG 
15 PRINT D$;"0PEN TRUC,S6,D1,V100" 

Wil je Volume, noch Slotnummer, noch Drivenummer 
specificeren, dan mag dat! Werk je met meerdere drives, 
dan kan het nuttig zijn tenminste het drivenummer op te 
geven. 

Ons programma OPENt nu een file, genaamd TRUC. Het 
trappante is, dat dit werkelijk te controleren is. Zelfs 
al hebben we nog geen gegevens naar de file geschreven, 
de file TRUC bestaat. Controleer dit door regel 20 op te 
nemen : 

20 END 

RUN dit programma en geef daarna een CATALOG commando. 

Zie je daar de file TRUC ? Voor TRUC zie je 3 cijfers en 
daarvoor een T. De 3 cijfers geven het aantal door de 
file bezette sectoren aan, de T betekent, dat het hier om 
een Tekstfile gaat - een databestand. 

Om gegevens naar de file te schrijven gebruiken we een 
WRITE statement. WRITE schrijft de gegevens, die erop 
volgen weg. De schrijfwijze voor ons programma wordt: 

20 PRINT D$; "WRITE TRUC" 

25 PRINT"DIT IS EEN GROTE TRUC!" 

PAS UP! Hiermee is het programma niet af. Een UITERST 
belangrijk commando ontbreekt nog: CLOSE. Sluit de file 
af. Anders zou elk volgend PRINT statement naar de schijt 
worden geschreven, zelfs op een andere diskette. Zonder 
CLOSE gebeuren er onvoorspe1 bare dingen en al heel wat 
pseudo-professionele programma's kwamen in moei1ijkheden 
door een verkeerd gebruik van dit statement. 

30 PRINT D$;"CLOSE TRUC" 

Je mag ook uitsluitend PRINT D$;"CL0SE" schrijven, maar 
onthoudt, dat alle geopende files dan afgesloten worden. 
Je kunt namelijk meer files tegelijk open hebben (zie 
verder: MAXFILES). 

RUN dit programma en geef een CATALOG; tenslotte LIST, 
zodat we straks weer verder kunnen. 
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Nu willen wij de file teruglezen. Voer daarom in: 

40 PRIN,T D$; "OPEN TRUC" 

45 PRINT D$; "READ TRUC" 

50 INPUT A$ 

60 PRINT D$; "CLOSE" 

/0 PRINT A$ : END 

Analyseer dit programma en SAVE het even op de diskette, 
b.v. SAVE SEQTEST. Laat het programma ook werken. Wanneer 
er in een programma gevraagd wordt naar meer INPUT uit de 
file, dan er aan gegevens aanwezig is, dan treedt een END 
OF DATA foutmelding op. 

Het is belangrijk ervoor te zorgen, dat fouten, die 
ontstaan tijdens het wegschrijven van gegevens en het 
uitlezen ervan, worden opgevangen door een CLOSE 
commando. Bij het wegschrijven van gegevens naar de 
diskette kan je een eindteken ingeven, b.v. het woord 
EINDE. Bij het lezen van de file kan je het 
INPUT-commando laten volgen door een IF - THEN 
statement, dat de aanwezigheid van het woord EINDE test 
en daarna de file CLOSEd. 

Uok kan het statement ONERR - GOTO voor het INPUT 
commando worden geplaatst, dat verwijst naar de CLOSE. 
Vergeet daarna niet de ONERR-tlag te resetten door een 
POKE 216,0. 

Oefening: voer in de file TRUC 5 data-regels in en lees 
die vervolgens weer uit. Verander daarna uitsluitend de 
dataregels en lees ze weer uit. Wat merk je op! 

Oefening: voer regel 17 PRINT D$; "DELETE TRUC" 

en 18 PRINT D$;"OPEN TRUC" in. 
vergelijk de werkingswijze van beide oefeningen. 

Bij het verwerken van getallen, maar ook zinnen (strings) 
met een comma erin, moet je goed uitkijken. Wil je b.v. 
een rij getallen naar de diskette schrijven en doe je dat 
a 1 s volgt: 

25 PRINT 10,12,14,225,999 

dan zal de APPLE II bij het teruglezen op een moeilijkheid 
stuiten. De comma staat nml. in relatie met de TAB-fields 
(zie aldaar). Om aan de eigenaardige geta1sverde 1 ing een 
eind te maken, zul je elk getal met een afzonderlijk 
PRINT statement weg moeten schrijven naar de DISK II. De 
oorzaak is, dat APPLESOFT slechts het Return-karakter 
(CHR$(13)) als separator aanmerkt. 

Het DOS springt ook vreemd om met GET. Wie een file wil 
teruglezen, of wegschrijven met GET zal ontdekken, dat 
het eerst ingevoerde karakter wordt overges lagen. Het is 
daarom zaak het eerste karakter willekeurig te kiezen en 
daarna pas "normaal" met GET verder te werken. Overigens 
dient GET altijd door PRINT gevolgd te worden, omdat 
anders onvoorspe1 bare dingen gebeuren. 
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Tcevoegen van gegevens aan een sequentieel bestand 
gebeurt met het APPEND commando. APPEND komt dan in de 
plaats van OPEN. De file pointer wordt daarbij 
opgeschoven naar het eerste, niet in gebruikzijnde teken 
aan het einde van de file. APPEND zet de file pointer dus 
naar het eind van de file, terwijl OPEN zich op het begin 
ervan richt. Het APPEND commando wordt gevolgd door de aan 
te roepen filenaam, optioneel het Drivenummer,Slotnummer 
en Vo 1 umenummer. 

Let Op: Bij DOS-versie 3.2 (.1) treedt soms een tout aan 
het licht, die gruwelijke gevolgen voor het bestand kan 
hebben. APPEND begint dan onverwacht aan het begin van de 
file!!! Er is een eenvoudige oplossing voor dit probleem, 
die weggePOKEd kan worden en die juist voor de CLOSE even 
geCALLed moet worden. Oh, wat een compjoeterbargoens 
alweer .... Ja, we worden steeds professioneler! Hier 
volgt het programma: 

1 POKE 768,169 

2 POKE 769,0 

3 POKE 770,76 

4 POKE 771,237 

5 POKE 772,253 

Een CALL 768 in regel 57, vlak voor CLOSE, is voldoende, 
mits een eventuele fout-afhande1ingsroutine ernaar 
verwijst. Het programma plaatst een "end-of-file-marker" 
(een 0) aan het einde van de file. Het programma POKEd 
naar adres 768 de volgende machinetaal- instructie: laadt 
de accumulator met 0 en jump naar de monitor routine 
$FDED voor karakteroutput. 

POSITION is een bruikbaar commando, om een bepaald veld 
in een sequentieel bestand aan te vullen. POSITION 
<filenaam),R13 is de juiste structuur, om Relatief veld 
13 te overschrijven. De velden worden immers gemarkeerd 
door een Return-code. De computer teit nu het aantal 
velden, dat moet worden overges 1 agen, te beginnen met 
veld nummer 0. 

B. RANDOM ACCESS BESTANDEN 

Veruit het meest interessant zijn de willekeurig 
toeganke1ijke data-bestanden . Het "random access" bestand 
(spreek uit: rendum ekses) is het beste te vergelijken 
met een kaartenbak. Het sequentiele bestand in verhouding 
daartoe met een telefoonklapper. De random-access file 
kent het begrip RECORD'S. 

Een RECORD kan onderverdee1d zijn in FIELD'S. Laten we 
voor een duidelijker begripsbepaling de R.A.-file eens 
vergelijken met een kaartenbak: 



R.A.FILE 


KAARTENBAK 


verzameling kaarten 
de enkele kaart 
regel op een kaart 
kenmerk van de regel, b.v. 
uitsluitend te beschrijven 
met de woonplaats, het adres 

Vee1betekenend is nu de aanwezigheid van de LENGTE-wijzer 
bij de definiering van een R.A.-file. 

10 PRINT D$ ;"OPEN RANAAM , L 1 0, S6 , D2 , V 1 00 " 



bestandsnaam 

record 

field 

id-code 
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De 1engteparameter is een vereiste, het slotnummer etc. 
is alleen noodzakelijk wanneer een speciale toepassing is 
gewenst. Zo kun je je gegevens op een andere schijf 
wegschrijven en ze gescheiden houden van het feitelijke 
programma. De lengte L bepaalt de lengte van de record. 

Het programma moet zo zijn geschreven, dat de fysieke 
iengte van de records, inclusief Returns etc., de 
opgegeven waarde niet overschrijdt. Gebeurt dit toch, dan 
ontstaat een ware puinhoop! 

READ en WRITE vereisen de aanduiding voor het 
Recordnummer in de file; dus: welke kaart er beschreven 
of gelezen moet worden. 

READ RANAAM,R8 of WRITE RANAAM,R8 voert deze true uit. 
Het frappante is, dat hieraan tevens Slot- en Drivenummer 
mogen worden toegevoegd. 

Over CLOSE behoeven we niet veel meer te zeggen. Het is 
van vitale betekenis, dat alle geopende files -zeker bij 
fouten- ook weer worden afgesioten. Het vergeten van een 
CLOSE statement kan vergaande gevolgen hebben, die niet 
tot 1 diskette beperkt blijven. 

Een wat mysterieus commando is BYTE. De 1 B'-parameter mag 
worden toegevoegd aan READ, WRITE en POSITION. Zo zal van 
de Ibe record de 5e byte gelezen worden: 

READ RANAAM,R14,B4 

Oefening: verklaar waarom ! Denk eraan, waar je met tellen 
beg i nt. 

Oefening: bestudeer de R.A.-demonstratie op de APPLE 
masterdiskette. Lees het DOS-handboek erop na. 

Ten aanzien van het gebruik van 8 inch diskettestations, 
de grotere broers van de kleine DISK II drives van APPLE, 
geldt nog een opmerking. De (semi-)professione 1e 
gebruiker van de APPLE heeft meestal behoefte aan een 
grotere gegevensops1ag capaciteit en benut daarom de 
moge1ijKheden, die de grotere diskdrives bieden. Het 
probleem met 8-inch drives is, dat er vaak sprake is van 
een pseudo-compatibi1iteit met het APPLE Mpu systeem. Er 
ontstaan dan al snel fouten in het wegschrijven of lezen 
van gegevens, soms moeten hele programma's worden 
aangepast. Zoals al eerder genoemd is een volstrekt 
compatibel systeem het b-inch MuitiByte concept, nota 
bene van Nederlandse bodem. Dit d i skdr i vesysteem werkt 
met speciale Amerikaanse interfacekaarten, die het 
volkomen doen aansluiten bij het APPLE DOS. 

Een versie van de MultiBytes is evenwel uitgerust met een 
hyper- moderne interface, de Sorrento Valley Ass. SVX-4. 
Hiermee kunnen allerlei diskformaten worden gelezen in 
z.g. single en double density. Double density wil zeggen, 
dat er z maal zoveel informatie naar de diskette kan 
worden geschreven door een trueje met de invulling van 
sectoren. Bij dit systeem is het werken met de 
VOLUME-parameter van essentiele betekenis. 

Evenals DRIVE, SLOT, is VOLUME als keuzemaatstaf een in 
theorie "toegevoegd" stuurcommando. 



Het lijkt wat overbodig. Niet echter voor supergrote 
gegevensopslagmedia, zoals de MultiBytes of de (b.v.) 
Corvus Winchester Hard Disk stations. Deze vragen onder 
omstandigheden (afhankelijk van hun interfacing) om een 
expliciete bepaling van het Vo 1umenummer. 
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8. EXEC en andere DOS COMMANDO'S 


Dat je met je APPLE computer bijna kunt toveren, staat 
wel vast. Maar met het EXEC commando heeft het er veel 
van weg, dat je APPLE bovennormaal begaafd is! EXEC staat 
voor Execute (spreek uit: eksukjoet). Niet in de 
betekenis van "doodsch ieten", maar van "voer blindeiings 
uit". En dat is precies wat je APPLE onder EXEC-controle 
doet. Laten we eens experimenteren : 

10 REM EXEC TEST 
20 PRINT "HET WERKT" 

30 END 
JSAVE TEST 

De diskdrive gaat aan en het programma TEST wordt 
opgenomen. 

T i k n u : 

Dfp 

10 REM EXEC PROGRAMMA 
20 PRINT CHR$(4); "OPEN PROG" 

30 PRINT CHR$(4 ); "WRITE PROG" 

32 REM CHR$(4 ) =CTRL-D 
40 PRINT "RON TEST" 

50 PRINT"CATALOG" 

60 PRINT"LIST40,60 

70 PRINT CHR$(4 ); "CLOSE PROG" 

En nu komt het! 

Drun 

De diskdrive gaat brommen en PROG wordt vastgelegd - als 
z.g. textfile (predikaat: T). Tik vervolgens EXEC PROG en 
kijk wat er allemaal gebeurt. 

Omdat de "programma-textfile" PROG inderdaad een 
sequentiele textfile is, iuidt het tormaat voor het EXEC 
commando principieei als volgt: 

EXEC (bestandsnaam).R(no.),Slot,Drive,Volume 

Probeer: DEXEC PROG,R2 

EXEC opent de tile en plaatst de startpointer aan het 
begin van het sequentiele bestand. De R parameter 
verwijst naar het betreffende relatieve veld binnen de 
file. R no. 0 is het record, waarnaar de pointer vervalt 
(z.g. default value), als er niets of niet anders wordt 
opgegeven. Wanneer het EXEC commando wordt gegeven, dan 
OPENt de computer het aangegeven bestand, voert 
automatisch een READ en een INPUT uit, waarbij de computer 
reageert ALSOF DE REGELS VIA HET TOETSENBORD WERDEN 
INGETIKT!! ! 
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Zo kan een tikfout worden gevonden en afgestraft met de 
veel-voorkomende kreet: SYNTAX ERR(OR). 

EXEC is een prima hulpmiddel voor het snel invoegen van 
subroutines in programma 1 s. De subroutines worden dan 
opgenomen als textfiles en terug ingelezen in het te 
maken programma. 

EXEC is een sadistisch commando voor liefhebbers van z.g. 
programma-bevei 1 igingen ... Stel je een programma voor, 
dat je door een kennis maar eenmaal gedraaid wil hebben! 
Stel je voor, dat de tXECfile dit programma na een RUN 
inderdaad DELETE! 

EXEC kun je daartoe tot op-bootprogramma maken (een heel 
speciaal "HELLO"-programma ). Probeer eens het volgende, 
dat bestemd is voor 48K APPLES onder DOS 3.3: 

Dcall-isi 

*9e 42 : 14 (return ) 

*9DBFG (return) 

] 

Doe nu een nieuwe diskette in de diskdrive en tik: 

10 REM INIT 
20 END 

Let nu goed op : INIT HALLO 

Is de diskette met dit vreemde programma geinitia 1iseerd , 
dan tikken we hetvolgende in: 

3FP 

10 PRINT CHR$(4);"OPEN HELLO" 

20 PRINT CHR$(4);"WRITE HELLO" 

30 PRINT"CATALOG" 

40 PRINT"KLAAR" 

5U PRINT CHR$(4);"CLOSE HELLO" 

] RUN 

Nu komt de grote wisseitruc. 

"1 RENAME HALLO, WEG 
JDbLETE WEG 

Nu invoeren : 

]RENAME HELLO,HALLO 

Start nu de diskdrive opnieuw op met de nieuwe diskette: 
PR#6. 

Als alles goed is, boot het DOS op met de EXECfile 
HALLO...! 

Insgelijks is het mogelijk de APPLE II te laten starten 
met een BRUN (binary) programma. Echter moet adres *9E42 
dan worden gewijzigd in :34. 

Natuurlijk zijn er enkele eigenaardigheden met het EXEC 
commando. Na een onderbreking d.m.v. CTRL-C zal EXEC zijn 
loop niet hervatten. INPUT statements in een programma 
worden beschouwd als wijzers naar het volgende veld in de 
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texttiie. Indien het EXEC programma een CLOSE bevat, 
wordt die genegeerd. Oppassen dus. 

Een van de aantrekkelijkste mogel i jkheden van EXEC is, 
dat het ermee mogelijk wordt Integer Basic programma ' s om 
te zetten naar APPLESOFT Basic. Via een textfile kan het 
Integer programma worden omgezet in APPLESOFT, hoewel 
daarna natuur1ijk syntactische problemen moeten worden 
opgelost. Zie daarvoor de in dit boek aanwezige 
omzettingstabe1. 

MAX FILES 


Dit commando bepaait het aantal files, dat tegelijk OPEN 
kan zijn. ieder bestand krijgt 595 bytes als 
geheugenbuffer; waarvan 256 bytes voor READ-operaties en 
256 bytes voor WRITES. Het resterend aantal bytes is 
zuiver voor besturingsdoe1einden. Wanneer het DOS 
aanwezig is, vervalt het aantal buffers naar 3. Dus 
MAXFILES heeft als defau1t-va1ue : 3. 

Is een DOS-commando in werking, b.v. APPEND, of CATALOG, 
dan wordt daardoor 1 buffer gebruikt. Je kunt evenwel 
meer files tegelijk OPEN hebben. De APPLE laat toe, dat 
MAXFILES tussen 1 en 16 mag liggen. De waarde 16 is 
arbitrair, omdat meestal niet voldoende geheugen meer 
aanwezig is. Het zijn geen "kleine" programma's, die 16 
buffers nodig hebben .... 

MAXFILES kan vanuit het programma worden geset. Het wordt 
dan vooraf gegaan door CTRL-D. Er is echter een probleem! 
MAXFILES verschuift de HIMEM: pointer en vernietigt een 
Integer Basic programma, indien het vanuit Integer Basic 
programmatuur wordt ingesteld. Ook "clobbered" het 
Applesoft strings, indien in de loop van een Applesoft 
programma MAXFILES wordt uitgebreid. Het is zaak MAXFILES 
vooraf te setten. 

MON 

Het MON commando staat voor MONITOR. Het laat toe, dat je 
op de TV-monitor kunt zien welke READ en WRITE operaties 
worden uitgevoerd. Maar je moet dan wel de juiste 
parameters aangeven. 

MON C toont de d i skcommando 1 s . 

MON I toont de disk-input 

MON 0 toont de disk-output 

MONO,1,0 is het samenvattende commando en probeer het 
eens uit. 

Het wordt (natuurlijk) voorafgegaan door CTRL-D. Meestal 
is het de eerste regei van je programma, indien je de 
disk-operaties wilt volgen. 

NOMON 


Het tegenovergestelde van MON. Ook dit commando zal het 
eerste van je programma zijn. MON en NOMON zijn in feite 
programmeerhu1pj es. 
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TRACE 


Dit commando is eveneens een programmeerhulp. Het laat 
zien welke regelstappen een programma neemt, maar zonder- 
Return's. DOS commando's worden vaak niet overgenomen en 
veroorzaken zelfs een gestoord verloop van de TRACE 
functie. De remedie is simpel. 

Vervang de benoeming van de stringvariabele D$, die door 
veel programmeurs gebruikt wordt als codering voor CTRL-D 
(CHR$(4 ) ), door D$=CHR$(13)+CHR$(4). Deze true is 
voldoende, om de problemen het hoofd te bieden. 

BSAVE f i lenaam , A111 , LI 11 ,<S, D, V> 

Om grafische beelden en machinetaa1programma ' s te kunnen 
opslaan op de diskette, gebruiken wij het commando BSAVE. 
Dit commando is tamelijk gecomp1iceerd. Afgezien van het 
benoemen van de filenaam moet je ook het startadres en de 
lengte van het programma aangeven. Dit mag in decimale- 
en hexadecimale notatie plaats- vinden. Echter niet door 
elkaar. Indien de hexadecimale notatie wordt gebruikt, 
dan worden A en L gevolgd door het $-teken. 

De B van BSAVE staat voor binair, hetgeen al enigszins 
aangeeft, dat we op machinetaalniveau bezig zijn. De 
adreswaarde A zal niet hoger dan 65535 (dec) of $FF FF 
(hex) kunnen zijn. De L parameter mag evenwel niet groter 
zijn dan 32767 (dec), of $7F FF (hex). Dat komt door 
beperkingen van het DOS. Wil je een langer programma 
opslaan, dan zijn daarvoor 2 BSAVE's nodig. 

Om de hexadecimale start- en lengtewaarde te kunnen 
vinden, is een tweetal geheugenp1aatsen aan te roepen, 
vermits het te BSAVEn programma eerder met BLOAD werd 
ingeiaden. Tik het volgende: 

CALL-151 

*AA72.AA73 AA60.AA61 (precies overnemen, incl.spatie) 

*9DBFG 


Op AA72/73 verschijnt de A-waarde en L op AA6U/61, alles 
in hex. Dit geldt voor een 48K APPLE II. 

BLOAD filenaam,<A111,S,D,V> 

Laadt een binair programma in het geheugen. Dit programma 
kan vervolgens vanuit Applesoft worden aangeroepen door 
de CALL en USR functies. Machinetaa1programma ' s weigeren 
dienst, indien ze op een onjuiste plaats in het geheugen 
worden geladen. Wordt de A-waarde niet vermeld, dan komt 
de file in het geheugen op de plaats vanwaar het werd 
geBSAVEd. In tegenstel 1 ing tot het LOAD statement wordt 
bij BLOAD uitsluitend het geheugengedeelte, waarnaar de 
machinetaa1 routines worden verwezen, beinvloed. 





BRUN filenaam,<A111,S,D,V> 

Voert automatisch een JMP uit naar het startadres van het 
machinetaalprogramma. BRUN mag nooit worden gebruikt bij 
grafische afbeeldingen, omdat er dan onverwachte dingen 
kunnen gebeuren. 

CHAIN f i lenaam, D,S,V 

Uitsluitend bestemd voor Integer Basic. RUNned een Integer 
programma zonder eerder gebruikte waarden van arrays of 
variabelen te veranderen. Zie hieromtrent het DOS-Manual. 



Size of System 


Legend 

| Non-firmware 
Applesoft Interpreter 

[ High Resolution Graphics 
Page 1 

j 1 High Resolution Graphics 

Page 2 
System 

I j DOS (uses 10,752 bytes) 

| Free space 


. Read/Write Memory (RAM) Usage 


DOS is relocated 
here at end of boot 

}- 


DOS is first put here 




Buffers used during boot 




Boot starts here 





Highest RAM address (HIMEM 
10,752 ($2A00) bytes 


16383 ($3FFF) 
6912 ($1 BOO) 

2303 f 8FF ) 

2048 ($800) 
1023 ($3FF) 

512 ($200) 


:) 


Memory Used During DOS Boot 


9-22 































8. D 0 S Lees/Schrijf Operaties 
******************************** 


Eerder in dit hoofdstuk hebben we al even kennis gemaakt 
met diskettes. Andere namen voor diskettes zijn flexibele 
schijveri of "floppy disks", deze laatste meestal afgekort 
tot "floppie". Ook werd melding gemaakt van het feit dat 
er twee maten hiervan zijn, n.l. de 5 1/4 inch en de 8 
inch diskettes. 

In de hier gepresenteerde beschrijving van de opbouw van 
een diskette en de daarop aanwezige systeem-informatie 
gaan wij uit van het 5 1/4 inch formaat. 


Diskettes worden op een bepaalde manier geformatteerd. 
Deze formattering verschilt van computer-systeem tot 
computer-systeem en van computer-type tot computer-type. 
Ons beperkend tot het APPLE - systeem komen we al twee 
formatteringen tegen , in de wandeling DOS 3.2 en DOS 3.3 
genoemd. 

Hoewel er meer verschillen zijn tussen de twee genoemde 
DOSsen volstaan we hier met het noemen van afwijkende 
diskette-formattering en de gevolgen hiervan op de 
gegevensopslag. 

De tabel geeft de voornaamste verschillen : 

Schijf - Opbouw 

************************************************ 

3.2 * 3.3 

************************************************ 




* 


Aantal Sporen 

35 

* 

* 

35 

Sectoren per Spoor 

13 

* 

* 

16 

Sectoren per Diskette 

455 

* 

* 

560 

Bytes per sector 

256 

* 

* 

256 

Bytes per Diskette 

116480 

* 

* 

143360 


************************************************ 




* 


Sectoren voor data 

403 

* 

* 

496 

Bytes voor data 

103168 

* 

* 

126976 


************************************************ 

De onderverde1ing van een diskette in Sporen ( Tracks ) 
en Sectoren ( Sectors ) veronderste1len wij als bekend. 
Mocht het je even ontschoten zijn, is het raadzaam de 
tekst op biz. 9-2 en de tekening op biz. 9-3 te 
raadplegen. 

We weten nu dat met DOS 3.3 35 x 16 = 560 sectoren 
beschikbaar zijn. Voor de Computergebruiker zijn echter 
maar 496 sectoren beschikbaar. 



De andere 64 sectored worden door het Computer-Systeem 
gebruikt voor opslag van Software en Gegevens voor de 
besturing van de Disk-Drive. Van deze 64 sectored worden 
er 48 gebruikt voor het opslaan van het eigenlijke Disk 
Operating System ( DOS ) en de rest als een Catalogus met 
daarin alle informatie over de op schijf aanwezige 
Programmatuur en Gegevensbestanden. De Sporen die voor de 
opslag van deze informatie gebruikt worden zijn Tracks 
0,1,2 en 17. 

Het Disk Operating Systeem moet dus rekening houden met 
Sporen waar Systeem-programmatuur is opgeslagen ( DOS ), 
Sporen waar Gebruikersprogramma 1 s staan, weer andere 
Sporen met Systeem-bestanden ("Disk-Directory") plus nog 
Sporen met Gebruikersbestanden ("Data-Files "). 

Alsof dit nog niet genoeg is, wordt ook het bepalen van 
het type van de "File" (Integer, Applesoft, enz.) nog aan 
het DOS overgelaten. 

Dit alles bij elkaar vereist een goede administratie. En, 
aangezien we probleemloos van de Disk-Drive gebruik maken 
is dat probleem toch afdoende opgelost. 


Diskette toegang door het D.O.S. : 
********************************** 


In deze sectie zullen we het hele proces dat het DOS 
ondergaat alvorens een Data-sector van diskette in te 
lezen, van stap tot stap gaan volgen. 

Een uiterst handig hulpmiddel voor het bestuderen van dit 
proces is het Super Sector Editor Programma van de heer 
Paul Spee. Dit programma, (een regelrechte "must" voor de 
Disk-Drive bezittende Apple Programmeur) is verkrijgbaar 
bij de Hobby Computer Club en wel de afdeling 
Softwareservice van de Apple Gebruikers Groep Nederland. 
Je vindt het op Schijf 26 en kost rond F 20,=. 

Omdat begrijpelijkheid bovenaan staat in dit Handboek 
hebben wij als voorbeeld de Master-Diskette genomen die 
bij aankoop van een Disk-Drive wordt bijgeleverd. De keus 
viel hierop, omdat deze diskette bij zeer vele 
Apple-bezitters in de Software Bibliotheek is te vinden. 

Algemeen : 


Het Disk Operating System werkt volgens een aantal 
conventies. Om er een paar te noemen : 

1. DOS verwacht VTOC en CATALOG op Track 17 (Hex 11) 

2. DOS schrijft altijd eerst naar de Tracks boven Track 
17. T.w. 18 t/m 34. 

3. Zijn deze "vol", dan worden Tracks 16 t/m 4 
beschreven. 

4. Uitbreiding van het aantal sectoren van een bestand of 

programma zal eerst aan de Track van dat bestand of 
programma worden toegekend. Is hiervoor geen plaats, 
dan zal een nieuwe Track worden gebruikt. 
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Het DOS zal dus ook nog een administratie bij moeten 
houden met al dan niet bezette sectoren van de 
individuele Tracks. 

Welnu, deze administratie wordt bijgehouden in de Volume 
Table of Contents ( VTOC ). 


De VTOC : 


Deze vinden we op Track 17, Sector 0. In hexadecimale 
notatie $11 ,0. 

Voor de naam Volume Table of Contents is geen goede 
Nederlandse naam te vinden. 

Misschien dat de benaming Inhoud en Omvang Tabel het 
meest in de buurt komt. 

De VTOC (we zullen deze naam maar blijven gebruiken) 
bevat een overzicht van alle bezette - en niet bezette 
sectoren van de afzonderlijke sporen. 

Aangezien DOS een schijf met complete sectoren van 256 
bytes beschrijft, kent de VTOC geen half-bezette 
sectoren. Wordt een sector maar voor 1/3 of 1/4 
volgeschreven, dan zal die gehele sector als "vol" worden 
beschouwd en als zodanig in de VTOC worden opgenomen. 

Voor elk Spoor zijn 4 bytes gereserveerd en al deze bytes 
worden achter elkaar beschreven. Elke groep van 4 bytes 
wordt een Track Bit Map genoemd. Twee van deze 4 bytes 
worden echter maar gebruikt, de resterende 2 zijn 
reserve. 

Nu zijn 2 bytes nog altijd 16 bits en dat is weer het 
aantal sectoren van een Spoor. Welnu, voor elke "voile" 
sector wordt een binaire 0 in het corresponderende bit 
gezet. Is de betreffende sector "leeg", dan zal een 
binaire 1 in dat bit staan. 

Een voorbeeld van een Track Bit Map vinden we op biz. 134 
van het DOS Manual. 

Behalve de 35 Track Bit Maps vinden we ook nog algemene 
informatie omtrent de Diskette in de VTOC. 


De opbouw van de VTOC ziet er zo uit: 


Byte 0 ($00) 
1 ($ 01 ) 

2 ($ 02 ) 

3 ($03) 

4 ($04) 

5 ($05) 

6 ($06) 
7 ($07) 
/ 


38 ($26) 

39 ($27) 


Wordt niet gebruikt 

Geeft Spoor-nummer van eerste 

"Directory" sector 

Geeft Sector-nummer van eerste 

"Directory" sector 

DOS versie-nummer 

Wordt niet gebruikt 

Wordt niet gebruikt 

Diskette Volume Nummer 

Wordt niet gebruikt 


Wordt niet gebruikt 
Aantal Tracks/Sectors in de 
Track/Sector List 
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40 ($28) 

/ 

'/ 

47 ($2F) 

48 ($30) 

49 ($31 ) 

50-51 ($32-$33) 

52 ($34) 

53 ($35) 

54 ($36) 

55 ($37) 

56-59 ($38-$3B) 
60-63 ($3C-$3F) 
64-67 ($40-$43) 
68-71 ($44-$47) 

/ 


/ 

\ 


I 


192-195 ($C0-$C3) 
196-255 ($C4-$FF) 


Wordt niet gebruikt 


Wordt niet gebruikt 
Eerstvolgend te gebruiken Spoor 
Richting van Spoortoekenning 
Wordt niet gebruikt 
Aantal Sporen per Diskette 
Aantal Sectoren per Diskette 
Aantal bytes per sector , laag 
Aantal bytes per sector , hoog 
Spoor 0 Bit Map 
Spoor 1 Bit Map 
Spoor 2 Bit Map 
Spoor 3 Bit Map 


Spoor 22 Bit Map 
Wordt niet gebruikt 


Voor de hierna volgende beschrijving gaan we ervan uit 
dat je over het Super Sector Editor programma (of een 
soortge1ijk programma) beschikt. 


Laadt SSE in je systeem en doe de Apple Master Diskette 
in je Disk-Drive. (Het is verstandig om voor alle 
zekerheid hiervoor een kopie te gebruiken. Deze kan je 
maken door gebruik te maken van het COPY programma op 
dezelfde Master-Schijf). „„ u .._ 

Met de SSE-instructie 11,OR wordt de VTOC van schijf 
ingelezen. Met een P-instructie wordt deze informatie 
a-pQpdf'ljkt 

Onderbreek het programma na een 151a 1 regels door op de 


spatiebalk te drukken. 

De informatie die nu op je beeldscherm staat moet 
ongeveer overeenkomen met Figuur 1. 

Laten we de lijst eens doorlopen. 


Byte $00 slaan we over. Op $01 en $02 vinden we de waarde 
11 en OF. Dit is dus de eerste "Directory" Track/Sector. 
Snel omrekenen leert ons dat dit decimaal Track 17, 

Sector 15 moet zijn. En in 9,9 van de 10 gevallen vinden 
we hier inderdaad de eerste Catalog-sector van een 

diskette. . . . 

Voor de nieuwsgierigen : sommige doorgewinterae 
programmeurs zetten de Catalog op een andere Track om 
copieren van hun diskette te verhinderen of bemoei1 1 jken. 
Een woord van waarschuwing is hier tevens op zijn plaats. 


* PROBEER NIET Z0NDER MEER ZELF MET DE * 

* CATALOG TE KNOEIEN. * 

* DIT KAN CATASTROFALE GEVOLGEN HEBBEN * 
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Byte $03 geeft ons het DOS versie nummer , waarden die we 
hier vinden kunnen 03 of 02 zijn. 

Byte $06 is het Diskette-Volume nummer. Dit kan varieeren 
tussen 01 en FE (1-254 Decimaal). 

Het Volume nummer kan gebruikt worden voor bescherming 
van Diskettes. Je kan je voorstellen dat een bepaald 
bestand (dit kan een adressen1ijst of een 
Voorraadoverzicht zijn) meerdere diskettes in beslag 
neemt. Door aan deze diskettes een uniek Volumenummer te 
geven worden de gegevens al op programmaniveau beschermd. 
Als het programma dit Volumenummer opgeeft zal nooit een 
verkeerd bestand gemuteerd kunnen worden. 

Een ander, treffend , voorbeeld is dat van een dagelijks 
transactie-file. Hierin worden gegevens geschreven die 
betreking hebben op een bepaalde dag, b.v. Maandag. Stel 
je nu even voor dat je voor elke dag van de week een 
andere Diskette wilt gebruiken (b.v. om een duidelijk 
dagoverzicht te verkrijgen). Door voor elke dag een ander 
Volumenummer toe te kenne zullen de gegevens van Dinsdag 
nooit op een Diskette van Maandag worden geschreven. 
Probeer je dat toch dan zal de foutmelding VOLUME 
MISMATCH worden gegeven. 

Het gebruik van een Volumenummer in deze vorm gaat alleen 
op voor de "normale" 51/4 inch diskettes en sommige 8 
inch Diskette Sub Systemen. Meer informatie hierover is 
te vinden op biz. 9-9. 

Voor andere 8 inch Systemen en de grote Hard Disk 
systemen wordt het Volumenummer gebruikt om een een 
bepaald gebied op die Disks aan te duiden. Bij een 5 
Megabyte Hard Disk kunnen dan b.v. 4 Volumes worden 
geadresseerd. Ben je in het bezit van zo'n systeem, lees 
dan de bijgeleverde Documentatie er eens op na. 

Nu komt er een tijd niets en vinden we de volgende 
informatie op byte $27. Dit is een vaste waarde en geeft 
het maximum aantal Spoor/Sector paren per Track/Sector 
List (zie aldaar). Deze waarde is 7A of 122. 

Weer loze ruimte en komen we bij byte $30. In dit byte 
wordt de eerst volgende te gebruiken Track aangegeven. 
Byte $31 geeft de richting van Track toekenning aan. 
Wanneer hier de waarde OF staat wordt in opgaande 
richting Tracks toegekend, d.w.z. van Track 18 oplopend 
naar Track 35. Vinden we hier de waarde FF dan wordt in 
neergaande richting de Tracks toegekend, dus vanaf Track 
16 tot Track 3. Dit is in tegenste11ing van wat er in het 
DOS MANUAL staat. Daar wordt gesproken over een Track Bit 
Maskerings Map. 

Bytes $34 en $35 geven het aantal sporen en sectoren per 
diskette. Meestal is dit 23(hex) of 35, resp. 10(hex) of 
16. 


PAS OP ! 
******** 


Het DOS MANUAL geeft op biz. 132 voor het aantal sectoren 
de waarde OF(hex), dit zouden er 15 zijn. De VT0C geeft 
het correct aantal aan, n.l. 10(hex) ofwel 16. De 
nummering (sec!) loopt echter van 00(hex) tot OF(hex). 
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Bytes $36 en $37 geven het aantal bytes per sector die 
laag resp. hoog zijn. 

Vanaf byte $38 krijgen we dan de 35 Track Bit Maps, die 
zoals nu bekend, ieder 4 bytes lang zijn. 

De resterende bytes $C4 tot $FF worden niet gebruikt. 
Indien er meer dan 35 Sporen op de Diskette voor zouden 
komen, kunnen de Track Bit Maps van deze extra sporen 
hier opgeborgen worden. 

We hebben gezien dat het DOS veel algemene informatie in 
de VTOC kan vinden. Meer specifieke informatie wordt 
gevonden in de DIRECTORY. Dit is dan de volgende stap die 
we maken. 


De DIRECTORY : 


De DIRECTORY wordt ook wel de CATALOG genoemd en deze 
tweede benaming geeft al aan wat voor informatie er is te 
vinden. 

Hier wordt een overzicht gegeven van alle op de diskette 
aanwezige "FILES" (= bestand). Tevens worden hier de 
FILE-typen en hun status t.a.v. al dan niet 
uitwisbaarheid bijgehouden. 

Volgens de VTOC moeten we de eerste "Directory "-sector op 
Spoor 17, Sector 15 vinden. Dat is 11 en OF hexadecimaa 1, 
dus moeten de SSE-instructies 11,FR en P Figuur 2 
opleveren. 


Ook hier weer een gestructureerde opbouw: 


Byte 0 ($00) 

1 ($ 01 ) 

2 ($ 02 ) 

. 3-10 ($03 — $0A) 
11-45 ($0B-$2D) 
46-80 ($2E-$50 ) 
81-115 ($51-$73 ) 
116-150 ($74-$96) 
151-185 ($97-$B9 ) 
186-220 ($BA-$DC) 
221-255 ($DD-$FF) 


Wordt niet gebruikt 
Track nummer van volgende 
"Directory"-sector 
Sector Nummer van volgende 
"Directory "-sector 
Wordt niet gebruikt 
Beschrijving File 1 
Beschrijving File 2 
Beschrijving File 3 
Beschrijving File 4 
Beschrijving File 5 
Beschrijving File 6 
Beschrijving File 7 


Bestudering van bovenstaande gegevens levert ons de 
volgende conclusies op: 

1. Er gaan 7 File beschrijvingen in een Directory Sector. 

Dat zijn dan 15 x 7 = 105 Files in de Directory. 

( Pro Memorie ; Sector 0 bevat de VTOC ) 

2. Door de verwijzing in de bytes $01 en $02 weten we dat 

er "terug geteld" wordt. 

3. Elke beschrijving neemt 35 bytes in beslag. 

Iedere File beschrijving is op dezelfde manier 
geformatteerd.■Dit formaat ziet er als volgt uit (de 
byte-nummers zijn RELATIEF, d.w.z. byte 0 is het eerste 
byte van de specifieke File beschrijving.): 
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Byte 0 
1 


2 

3-20 

21-22 


Track nummer van de Track/Sector 

List van die File 

Sector nummer van de Track/Sector 

List van die File 

File - type 

File - naam 

Aantal gebruikte sectoren 


Met een blik op het scherm zijn deze bytes wel te vinden. 
Alleen het relatieve byte 2 behoeft nog nadere uitleg. 

In dit byte wordt n.l. het File - type en 
"status "opgeborgen. 


Moge1ij ke 

hexadecimale waarden kunnen zijn : 

Textf i le 

0 

(niet "gelockt") of 

80 ("gelockt") 

Integer 

1 

,, of 

81 

Applesoft 

2 

,, of 

82 

Binair 

4 

,, of 

84 

Opmerking : 
*********** 




Diegenen, die in het bezit zijn van de DOS TOOLKIT met de 
Relocatable Files kunnen nog twee andere waarden 
aantreffen , n.l. 10 (indien niet "gelockt") en 90 
(indien wel "gelockt"). 

Nu we ook de weg weten in de DIRECTORY / CATALOG van' de 
diskette , kunnen we de volgende stap maken. En deze 
voert ons naar de Track/Sector List. 


De Track/Sector List: 


De Track/Sector list geeft een overzicht van alle 
gebruikte Tracks en hun Sectors voor een individuele 
File. Elke File, die in de DIRECTORY voorkomt, krijgt een 
complete sector toegewezen voor deze informatie. Indien 
het bestand zo groot is, dat er zoveel sectoren worden 
gebruikt dat deze informatie niet in een Track/Sector 
List Sector kan worden opgeslagen, wordt er een tweede 
Sector daarvoor aangewezen. Uiteraard zal dan een 
verwijzing naar deze sector worden opgenomen in de eerste 
sector. 

Een typische sector van een Track/Sector List heeft de 
volgende structuur: 

Byte 0 ($00) Wordt niet gebruikt 

1 ($01) Track nummer van volgende 

TSL-Sector 

2 ($02) Sector nummer van volgende 

TSL-Sector 

=^> Indien bytes $01 en $02 de waarde 00 bevat, dan 
is slechts 1 sector nodig <== 

9-29 






3 ($03) 

4 ($04) 

5-6 ($05-$06) 

7-11 ($07 — $0 B) 

12 ($0C) 

13 ($0 D) . 

14 ($0 E ) 

15 ($0 F) 


Wordt niet gebruikt 

Wordt niet gebruikt 

Sector Basis nummer (telt groepen 

van122 sectoren ) 

Wordt niet gebruikt 

Track nummer van eerste File 

sector 

Sector nummer van eerste File 
sector 

Track nummer van tweede File 
sector 

Sector nummer van tweede File 
Sector 


254 

LU 

L±_ 

^9- 

Track nummer van 
sector 

122ste 

File 

255 

($FF) 

Sector nummer van 
sector 

122ste 

Fi le 


Met behulp van de gegevens in de DIRECTORY zijn we nu in 
staat om de TSL van de File HELLO op het beeldscherm te 
zetten. Deze moet overeenkomen met Figuur 3. 

Probeer het maar eens. 


Er niet uitgekomen? Geen probleem, hoor, a 11e begin is 
tenslotte moeilijk. 

Laten we m.b.v. de SSE nog eens de eerste DIRECTORY 
sector inlezen. (SSE-instructies 11,FR en P). Nu zoeken 
we de eerste "entry" op, deze moet beginnen bij byte $0B 
en doorlopen tot byte $2E. Verder weten we dat de 
relatieve bytes 0 en 1 de Track en Sector van de TSL 
aangeven. Dus moeten de bytes $0B en $0C dit aangeven. De 
waarden die we hier vinden zijn 13 en OF. Door deze 
Sector in te lezen hebben we de TSL van het HELLO 
programma. 

Probeer nu ook eens de TSL van het programma ANIMALS te 
vinden. Doe hetzelfde voor het programma MUFFIN. Lukt dat 
de eerste keer nog niet, lees dan het gedeelte over de 
DIRECTORY/CATALOG nog eens na. 


DATA SECTOREN: 


Hoe een Data-sector gevonden kan worden behoeft hier geen 
verdere uitleg. Daarom nog wat opmerkingen van algemene 
aard. 

De opbouw van een Data-sector verschilt van File-type tot 
File-type. Dit houdt verband met de eigenaardigheden van 
de APPLESOFT - en INTEGER BASIC taal en de structuren van 
een Text-file en Binary-file. 
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1 . TEXT-FILE Sector: 
********************* 


Deze sectoren wordert sequentieel beschreven. De 
individuele records worden van elkaar gescheiden door een 
CARRIAGE RETURN (80 hexadecimaa1 ). 00 Wordt beschouwd als 
een End Of File Marker, (zie figuur 4) 

2. BINARY-FILE SECTOR: 

*********************** 

Een binaire file is een kopie van een aantal 
geheugenp 1 aatsen op Diskette. Deze worden voorafgegaan 
door het startadres en de lengte. We kennen deze 
parameters al omdat zij bij een BSAVE commando als 
A$aaa,L$lll worden meegegeven , waar aaa het startadres 
en 111 de lengte is. (zie figuur 5) 

3. APPLESOFT PROGRAM SECTOR: 

***************************** 


De eerste beschreven sector begint met de programmalengte 
in bytes, gevolgd door het programma. (zie figuur 6) 

4. INTEGER BASIC PROGRAM SECTOR: 
****•>:********★********★*********★ 


De eerste beschreven sector begint met de 
programma lengte, gevolgd door de lijnlengte en 
lijnnummers, daarna het programma en afgesloten met $51. 
De hexadecimale waarde 01 geeft aan dat het einde van een 
lijn is bereikt. (zie figuur 7) 


SL0TW00RD: 

********* 


We hebben het DOS nu gevolgd bij het benaderen van een 
Diskette. We weten nu waar welke informatie staat. Ook is 
nu bekend hoe de informatie wordt opgeslagen. 

Als voorbeeld gebruikten we daarvoor de Master-Diskette 
van APPLE. Zoals je weet is deze schijf 
"write-protected", wat inhoudt dat je zelf geen 
informatie naar die Diskette kan wegschrijven. Dit is er 
de oorzaak van dat de gegevens zo mooi gestructureerd in 
de VTOC en DIRECTORY zijn opgeslagen. 

Bij een Diskette die normaal gebruikt wordt en waarop 
regelmatig Files worden GESAVED en GEDELET, zal deze 
structuur zich niet zo snel laten herkennen. Als DOS een 
file moet wegschrijven, wordt dat gedaan op de eerste de 
beste vrije plaats die daarvoor in aanmerking komt. 

M.a.w. het is niet zo dat de eerste DIRECTORY/CATALOG 
sector perse 7 "entries" bevat. 


Waarschijnlijk zal bij sommigen de interesse nu gewekt 
zijn voor de mogelijkheden van het DOS. Er bestaat 
literatuur hierover maar is overwegend Engels en soms van 
een pittig gehalte. Diegenen, die zich hierdoor niet 
afgeschrikt voelen, kunnen contact opnemen met de 
u i tgever. 
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Wij besluiten met een herhaling van de eerder gegeven 
waarschuwing : 


**************************************** 

* PROBEER NIET ZONDER MEER ZELF MET DE * 

* CATALOG TE KNOEIEN. * 

* DIT KAN CATASTROFALE GEVOLGEN HEBBEN * 
**************************************** 
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track/sector list 
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00 

00 

00 

00 

00 
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00 
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13 

oc 

13 

OB 
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00 

00 

00 

20 s 
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00 

00 

00 
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00 

00 

00 

00 
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00 

00 

00 

00 

00 
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00 

00 

00 

00 

00 
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00 

00 

00 

00 

00 
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00 

00 

00 

00 

00 
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00 
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00 
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00 

00 

00 

00 
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00 

00 

00 
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00 
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00 

00 

00 
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00 

00 

00 

00 

00 

D8: 

00 

00 

00 

00 

00 

EO: 

00 

00 

00 

00 

00 

E8: 

00 

00 

00 

00 

00 

FO: 

00 

00 

00 

00 

00 
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00 

00 

00 

00 

00 


00 

00 

• 3 ) < 3 ) o) a) o) o) 

13 

OD 

0000SNSM 

00 

00 
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00 

00 
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00 

00 
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00 

00 
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00 

00 
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00 

00 
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00 

00 
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00 
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00 

00 

00000000 

00 

00 
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00 

00 
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00 

00 
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00 

00 
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00 

00 
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TEKST FILE 


00 

CC 

CF 

Cl 

C4 

C3 

CF 

CD 

DO 

LOADCOMP 

08 

Cl 

D2 

C5 

D2 

AC 

C4 

B2 

8 D 

ARER,D2M 

10 

AO 

BO 

AO 

BF 

C3 

C8 

D2 

A4 

0 ?CHR$ 

18 

A8 

B4 

A9 

A2 

CF 

DO 

C5 

CE 

(4)"OPEN 

20 

C3 

CF 

CD 

DO 

Cl 

D2 

C5 

D2 

COMPARER 

28 

AE 

D4 

AC 

C4 

B2 

A2 

BA 

BF 
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30 

C3 

C8 

D2 
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38 
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D2 
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C5 

C3 
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40 

DO 

Cl 

D2 

C5 

D2 

AE 

D4 

A2 

PARER.T M 

48 

BA 

C8 

CF 

CD 

C5 

BA 

DO 

CF 

s HOME:PO 

50 

CB 

C5 

AO 

B3 

B3 

AC 

B3 

B3 
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58 

BA 

CC 

C9 

D3 

D4 

B1 

AD 

BA 

:LIST1-: 

60 

BF 

C3 

C8 

D2 

A4 

A8 

B4 

A9 

?CHR$(4) 

68 

A2 

C3 

CC 

CF 

D3 

C5 

A2 

BA 

"CLOSE": 

70 

D4 

C5 

D8 

D4 

BA 

C4 

C5 

CC 

TEXT:DEL 

78 

BO 

AC 

BO 

BA 

C5 

CE 

C4 

8 D 

0,OsENDM 

80 

D2 

D5 

CE 

8 D 

C5 

D8 

C5 

C3 

RUNMEXEC 

88 

CA 

D5 

CD 

DO 

AC 

C4 

B1 

8 D 

JUMP,DIM 

90 

C5 

CE 

C4 

8 D 

8 D 

00 

00 

00 

ENDMM5)5)5> 

98 

00 

00 

00 

00 

00 

00 

00 

00 

0)0)000000 
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00 

00 

00 

00 

00 

00 

00 

00 

0000 -D <i) <a) 

A8 

00 

00 

00 

00 

00 

00 

00 
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BO 

00 

00 

00 

00 

00 

00 

00 

00 

00 0 0 0 0 5) 0 

B8 

00 

00 

00 

00 

00 

00 

00 

00 
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CO 

00 

00 

00 

00 

00 

00 

00 

00 
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C8 

00 

00 

00 

00 

00 

00 

00 

00 
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00 

00 

00 

00 

00 

00 

00 

00 
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D8 

00 

00 

00 

00 

00 

00 

00 

00 
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EO 

00 

00 
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00 

00 

00 
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00 
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E8 

00 

00 
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00 

00 

00 
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00 

00000000 

FO 

00 

00 

00 

00 

00 

00 

00 

00 

00000000 

F8 
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BINARY ( BOOT 13 ) 


00 

00 

17 

FO 

08 

20 

08 

00 

85 

01 

AO 

01 

10 

90 

17 

CS 

B1 

00 

18 

20 

58 

FC 

AO 

FF 

20 

17 

08 

09 

80 

20 

28 

10 

F3 

A9 

BF 

85 

30 

FD 

AD 

00 

02 

C9 

38 

C9 

B1 

90 

DC 

C9 

40 

OA 

OA 

OA 

OA 

8 D 

48 

17 

AO 

81 

20 

00 

50 

AD 

FE 

16 

8 D 

8 A 

58 

E6 

13 

AD 

FF 

16 

60 

85 

10 

A9 

17 

AO 

68 

ID 

BO 

F7 

EE 

8 A 

70 

17 

AD 

86 

17 

C5 

78 

90 

E8 

AD 

82 

17 

80 

85 

12 

6 C 

12 

00 

88 

00 

00 

00 

92 

17 

90 

00 

01 

00 

00 

C6 

98 

EF 

D8 

OD 

OD 

20 

AO 

20 

20 

20 

20 

20 

A8 

33 

2D 

53 

45 

43 

BO 

20 

42 

4F 

4F 

54 

B8 

49 

4C 

49 

54 

59 

CO 

4C 

4F 

54 

20 

54 

C8 

4F 

4F 

54 

20 

46 

DO 

20 

28 

44 

45 

46 

D8 

54 

3D 

36 

29 

AO 

EO 

4F 

54 

20 

54 

4F 

E8 

4F 

54 

20 

46 

52 

FO 

28 

44 

45 

46 

41 

F8 

3D 

36 

29 

AO 

AO 
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APPLESOFT 
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INTEGER 
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I3D0LLL 


03D0- 

4C 

BF 

9D 

JMP 

♦9DBF 

Dump naar DOS warmstart. Programma intak 

03D3- 

4C 

84 

9D 

JMP 

$9D84 

Dump naar DOS coldstart. Reset Basic. 

03D6- 

4C 

FD 

AA 

JMP 

$AAFD 

Dump naar File Manager. 

03D9- 

4C 

B5 

B7 

JMP 

$B7B5 

Dump naar RWTS. 

03DC- 

AD 

OF 

9D 

LDA 

*9D0F 

Korte routine, die gebruikt kan worden 

03DF- 

AC 

OE 

9D 

LDY 

$9D0E 

door machinetaalprogramma. Set input 

03E2- 

60 



RTS 


parameters voor aanroep File Manager. 

03E3- 

AD 

C2 

AA 

LDA 

$AAC2 

Idem maar voor aanroep RWTS. 

03E6- 

AC 

Cl 

AA 

LDY 

$AAC1 


03E9- 

60 



RTS 



03EA- 

4C 

51 

A8 

JMP 

$A851 

Dump voor reconnecten DOS intercept 

03ED- 

EA 



NOP 


aan keyboard en CRT. 

03EE- 

EA 



NOP 



03EF- 

4C 

59 

FA 

JMP 

*FA59 

Dump naar BRK afhandelingsroutine. 

03F2- 

BF 



??? 


Actief bij Autostart ROM. 

03F3- 

9D 

38 

4C 

STA 

*4C38,X 

Herken 9DBF! 3F4 : Power-up byte. 

03F6- 

58 



CLI 


3F5 : Dump naar &-routine. 

03F7- 

FF 



??? 



03F8- 

4C 

65 

FF 

JMP 

$FF65 

3F8 : Dump naar CTRL-Y routine. 

03FB- 

4C 

65 

FF 

JMP 

♦FF65 


03FE- 

65 

FF 


ADC 

$FF 

3FE : LO/HI adres routine afhandeling 

0400- 

AA 



TAX 


maskable interrupt. 


t. 



De hiervoor opgesomde adressen worden meestal "vectors" genoemd. 

Het zijn vectors in page 3 ($300-$3FF) van de geheugenmap van de 
APPLE microcomputer, die verwijzen naar DOS-routines en enkele 
hulproutines. 

De reden, dat het DOS aansluitingen vindt in page 3, is dat 
het DOS op verschillende plaatsen in het geheugen kan resideren. 

Denk maar aan de verschillende geheugenomvang van een 32 K en 
een 48 K APPLE computer. Door een aantal standaard-vectors te 
fixeren, worden moeilijkheden voorkomen met verschillende routine- 
plaatsen. Het is dan ook begrijpelijk, dat de in page 3 gelegen 
DOS-vectors vaak worden gebruikt voor DOS-"beveiligingen". 

Wanneer je het DOS geladen hebt, kun je de hiervoor afgebeelde 
geheugenlist oproepen. Tik CALL-151 waarna de prompt verandert 
in het * -teken. Tik vervolgens 3D0L (return). 

Voor degenen, die geen integer Basic hadden geladen, is het spijtig, 
dat zij de mini-assembler interpretatie moeten missen. 


De vector $3F5 is een bijzonder aantrekkelijke vector, die 
gebruikt kan worden voor eigen machinetaalroutines of Dumps 
het DOS. Test de volgende mogelijkheid: 


(mis-) 

naar 


Verander $3F6: 98 AD (let 
Keer terug naar Basic (zie 
en tik: &. 

Wat gebeurt er ? U krijgt 


op de spatie tussen 
$3D0) 

een CATALOG van uw 


98 en AD)-return. 


diskette! 
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VTOC 


00 

04 

11 

OF 

03 

00 

00 

FE 

00 

08 

00 

00 

00 

00 

00 

00 

00 

00 

1C 

00 

00 

00 

00 

00 

00 

00 

00 

18 

00 

00 

00 

00 

00 

00 

00 

00 

20 

00 

00 

00 

00 

00 

00 

00 

7A 

28 

00 

00 

00 

00 

00 

00 

00 

00 

30 

OD 

FF 

00 

00 

23 

10 

00 

01 

38 

00 

00 

00 

00 

00 

00 

00 

00 

40 

00 

00 

00 

00 

00 

00 

00 

00 

48 

00 

00 

00 

00 

00 

00 

00 

00 

50 

00 

00 

00 

00 

00 

00 

00 

00 

58 

00 

00 

00 

00 

00 

OF 

00 

00 

60 

FF 

FF 

00 

00 

00 

00 

00 

00 

68 

00 

7F 

00 

00 

01 

FF 

00 

00 

70 

00 

00 

00 

00 

00 

00 

00 

00 

78 

00 

00 

00 

00 

00 

00 

00 

00 

80 

FF 

EO 

00 

00 

00 

00 

00 

00 

88 

00 

00 

00 

00 

00 

00 

00 

00 

90 

00 

00 

00 

00 

00 

00 

00 

00 

98 

00 

00 

00 

00 

00 

00 

00 

00* 

AO 

00 

00 

00 

00 

00 

03 

00 

00 

A8 

00 

00 

00 

00 

00 

00 

00 

00 

BO 

00 

00 

00 

00 

00 

00 

00 

00 

B8 

00 

00 

00 

00 

00 

00 

00 

00 

CO 

00 

00 

00 

00 

00 

00 

00 

00 

C8 

00 

00 

00 

00 

00 

00 

00 

00 

DO 

00 

00 

00 

00 

00 

00 

00 

00 

D8 

00 

00 

00 

00 

00 

00 

00 

00 

EO 

00 

00 

00 

00 

00 

00 

00 

00 

ES 

00 

00 

00 

00 

00 

00 

00 

00 

FO 

00 

00 

00 

00 

00 

00 

00 

00 

F8 

00 

00 

00 

00 

00 

00 

00 

00 


Figuur 


1 


DQOCSSP® 
5) 5) 5) S) 5)5) 5) 5) 
•a) »a) *i) *5) >S) <jD a) a) 

ij) a) 5) a) a) 5) a) a) 

85)S)S)a)a)S)z 
5) ia) *a) o) a) la) *a) *a) 
MS)5)#PS>A 
S> a) 5)5) £>5)5) 5) 

ia) *a) >a) *a) «a) *a) a) *a) 
S)a)a)a>;j)ci);j);j) 
•a) «a) -a) «a) >a) 5) 0 *a) 
9S)S)S)S)0-j)S> 
S) 5)5)5) 5)5) 
5>5>5>A5>5> 

•a) »D *a) *a) «a) *a) >a) <a) 

5)5) 5) * 3 ) 4 ) 4)90 
n ;i>;i);i>;5)0a 
5>5>5)5)5>5)5>5) 
5) 5) 5) 5) 5) 5) 5) 5) 

•a) 0 ia) ia) «a) 0 Ja> *a> 
0 «a) >a) *a) 0 C 0 <a) 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
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DIRECTORY 


00 

00 

11 

OE 

00 

00 

00 

00 

00 

S)QN5):a>3®5) 

08 

00 

00 

00 

13 

OF 

82 

C8 

C5 

5>5>5>SOBHE 

10 

cc 

CC 

CF 

AO 

AO 

AO 

AO 

AO 

LLO 

18 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


20 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


28 

AO 

AO 

AO 

AO 

06 

00 

14 

OF 

FS)TQ 

30 

81 

Cl 

CE 

C9 

CD 

Cl 

CC 

D3 

AANIMALS 

38 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


40 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


48 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

12 

R 

50 

00 

15 

OF 

80 

Cl 

DO 

DO 

CC 

S)UOS)APPL 

58 

C5 

AO 

DO 

D2 

CF 

CD 

D3 

AO 

E PROMS 

60 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


68 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


70 

AO 

AO 

03 

00 

16 

OF 

81 

Cl 

Co>VOAA 

78 

DO 

DO 

CC 

C5 

D3 

CF 

C6 

D4 

PPLESOFT 

80 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


88 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


90 

AO 

AO 

AO 

AO 

AO 

06 

00 

17 

F5)W 

98 

OF 

81 

Cl 

DO 

DO 

CC 

C5 

D6 

OAAPPLEV 

AO 

C9 

D3 

C9 

CF 

CE 

AO 

AO 

AO 

ISIGN 

A8 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


BO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


B8 

1A 

00 

18 

OF 

81 

C2 

C9 

CF 

ZoDXOABIO 

CO 

D2 

C8 

D9 

D4 

C8 

CD 

AO 

AO 

RHYTHM 

C8 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


DO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


D8 

AO 

AO 

AO 

11 

00 

19 

OF 

84 

QS)YOD 

EO 

C2 

CF 

CF 

D4 

B1 

B3 

AO 

AO 

BOOT13 

E8 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


FO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 


F3 

AO 

AO 

AO 

AO 

AO 

AO 

OA 

00 

J5> 


Figuur 2 
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LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL 


9D84- 

AD 

E9 

B7 

LDA 

$B7E9 

DOS Coldstdrt 3dl*6S xxxxxxxxxxxxx 

9D87- 

4A 



LSR 



9D88- 

4A 



LSR 



9D89- 

4A 



LSR 



9D8A- 

4A 



LSR 


IOBSlot nummer 

9D8B- 

8D 

6A 

AA 

STA 

$AA6A 

in variabelen tabel 

9D8E- 

AD 

EA 

B7 

LDA 

*B7EA 

Drive nummer 

9D91- 

8D 

68 

AA 

STA 

$AA68 

in variabelen tabel 

9D94- 

AD 

00 

EO 

LDA 

$E000 

Controleer welk Basic dialekt 

9D97- 

49 

20 


EOR 

#$20 

aktief is 

9D99- 

DO 

11 


BNE 

$9DAC 

Branch naar Applesoft 

9D9B- 

8D 

B6 

AA 

STA 

$AAB6 

Integer Basic aanwezig 

9D9E- 

A2 

OA 


LDX 

#$0A 

9DA0- 

BD 

61 

9D 

LDA 

$9D61,X 

stel de vereiste adressen in 

9DA3- 

9D 

55 

9D 

STA 

$9D55,X 

9DA6- 

CA 



DEX 



9DA7- 

DO 

F7 


BNE 

$9DA0 


9DA9- 

4C 

BC 

9D 

JMP 

$9DBC 


9DAC- 

A9 

40 


LDA 

#$40 

Applesoft Basic aanwezig 

9DAE- 

8D 

B6 

AA 

STA 

$AAB6 


9DB1- 

A2 

OC 


LDX 

#$0C 

stel de vereiste adressen in 

9DB3- 

BD 

6B 

9D 

LDA 

$9D6B,X 


9DB6- 

9D 

55 

9D 

STA 

$9D55,X 


9DB9- 

CA 



DEX 



9DBA- 

DO 

F7 


BNE 

$9DB3 


9DBC- 

38 



SEC 



9DBD- 

BO 

12 


BCS 

$9DD1 


9DBF- 

AD 

B6 

AA 

LDA 

$AAB6 

DOS Warmstart adres ************** 

9DC2- 

DO 

04 


BNE 

$9DC8 


9DC4- 

A9 

20 


LDA 

#$20 

Stel Integer Basic in 

9DC6- 

DO 

05 


BNE 

$9DCD 


9DC8- 

OA 



ASL 



9DC9- 

10 

05 


BPL 

$9DD0 


9DCB- 

A9 

4C 


LDA 

#$4C 

Stel Applesoft Basic in 

9DCD- 

20 

B2 

A5 

JSR 

$A5B2 


9DD0- 

18 



CLC 



9DD1- 

08 



PHP 


Initialiseer DOS 

9DD2- 

20 

51 

A8 

JSR 

$A851 


9DD5- 

A9 

00 


LDA 

#$00 

Nomon C,1,0 

9DD7- 

8D 

5E 

AA 

STA 

$AA5E 


9DDA- 

8D 

52 

AA 

STA 

$AA52 

Initialiseer State 0 

9DDD- 

28 



PLP 



9DDE- 

6A 



ROR 



9DDF- 

8D 

51 

AA 

STA 

$AA51 


9DE2- 

30 

03 


BMI 

$9DE7 


9DE4- 

6C 

5E 

9D 

JMP 

<$9D5E) 


9DE7- 

6C 

5C 

9D 

JMP 

($9D5C) 


9DEA- 

OA 



ASL 


Controleer RAM Applesoft 

9DEB- 

10 

19 


BPL 

$9E06 


9DED- 

8D 

B6 

AA 

STA 

$AAB6 

Indien zo, dat pointers op hun 

9DF0- 

A2 

OC 


LDX 

#$0C 

plaats zetten 

9DF2- 

BD 

77 

9D 

LDA 

$9D77,X 


9DF5- 

9D 

55 

9D 

STA 

$9D55,X 


9DF8- 

CA 



DEX 



9DF9- 

DO 

F7 


BNE 

$9DF2 


9DFB- 

A2 

ID 


LDX 

#$1D 


9DFD- 

BD 

93 

AA 

LDA 

$AA93,X 


9E00- 

9D 

75 

AA 

STA 

$AA75,X 


9E03- 

CA 



DEX 



9E04- 

10 

F7 


BPL 

$9DFD 
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9E06- 

AD 

B1 

AA 

LDA 

*AAB1 Initialiseer MAXFILES (vervalt naar 3) 

9E09- 

8D 

57 

AA 

STA 

$AA57 

9E0C- 

20 

D4 

A7 

JSR 

$A7D4 Set up buffers 

9E0F- 

AD 

B3 

AA 

LDA 

$AAB3 EXEC controle - wordt na volgende karaktei 

9E12- 

FC) 

09 


BEQ 

$9E1D op non-aktief gesteld. 

9E14- 

48 



PHA 


9E15- 

20 

9D 

A6 

JSR 

$A69D 

9E18- 

68 



PLA 


9E19- 

AO 

00 


LDY 

#$00 

9E1B- 

91 

40 


STA 

($40),Y 

9E1D- 

20 

5B 

A7 

JSR 

$A75B Reset CSW state op 0 

9E20- 

AD 

5F 

AA 

LDA 

$AA5F is dus warmstart status 

9E23- 

DO 

20 


BNE 

$9E45 Zitten we midden in commando ? 

9E25- 

A2 

2F 


LDX 

#$2F Nee, dan $3D0 instellen 

9E27- 

BD 

51 

9E 

LDA 

$9E51,X Haal lijst op 

9E2A- 

9D 

DO 

03 

STA 

$03D0,X en zet hem weg! 

9E2D- 

CA 



DEX 


9E2E- 

10 

F7 


BPL 

$9E27 

9E30- 

AD 

53 

9E 

LDA 

$9E53 

9E33- 

8D 

F3 

03 

STA 

$03F3 

9E36- 

49 

A5 


EOR 

#$A5 

9E38- 

8D 

F4 

03 

STA 

$03F4 

9E3B- 

AD 

52 

9E 

LDA 

$9E52 

9E3E- 

8D 

F2 

03 

STA 

$03F2 

9E41- 

A9 

06 


LDA 

#$06 

9E43- 

DO 

05 


BNE 

$9E4A 

9E45- 

AD 

62 

AA 

LDA 

$AA62 Test lopend commando 

9E4S- 

FO 

06 


BEQ 

$9E50 anders terug naar Basic 

9E4A- 

8D 

5F 

AA 

STA 

$AA5F 

9E4D- 

4C 

80 

A1 

JMP 

$A180 

9E50- 

60 



RTS 

Klaar 

9E51- 

4C 

BF 

9D 

JMP 

$9DBF De lijst schuift naar $3D0 ******* 

9E54- 

4C 

84 

9D 

JMP 

$9D84 

9E57- 

4C 

FD 

AA 

JMP 

$AAFD 

9E5A- 

4C 

B5 

B7 

JMP 

$B7B5 

9E5D- 

AD 

OF 

9D 

LDA 

$9D0F 

9E60- 

AC 

OE 

9D 

LDY 

$9D0E 

9E63- 

60 



RTS 


9E64- 

AD 

C2 

AA 

LDA 

$AAC2 

9E67- 

AC 

Cl 

AA 

LDY 

$AAC1 

9E6A- 

60 



RTS 


9E6B- 

4C 

51 

A8 

JMP 

$A851 

9E6E- 

EA 



NOP 


9E6F- 

EA 



NOP 


9E70- 

4C 

59 

FA 

JMP 

$FA59 

9E73- 

4C 

65 

FF 

JMP 

$FF65 

9E76- 

4C 

58 

FF 

JMP 

$FF58 

9E79- 

4C 

65 

FF 

JMP 

$FF65 

9E7C- 

4C 

65 

FF 

JMP 

$FF65 

9E7F- 

65 

FF 


ADC 

$FF 

9E81- 

20 

D1 

9E 

JSR 

$9ED1 Keyboard intercept routine 

9E84- 

AD 

51 

AA 

LDA 

$AA51 wordt er een file gelezen ? 

9E87- 

FO 

15 


BEQ 

$9E9E 

9E89- 

48 



PHA 

Indien ja, dan cursor weg 

9E8A- 

AD 

5C 

AA 

LDA 

$AA5C 

9E8D- 

91 

28 


STA 

($28),Y 

9E8F- 

68 



PLA 


9E90- 

30 

03 


BMI 

$9E95 Is dit een Coldstart ? 

9E92- 

4C 

26 

A6 

JMP 

$A626 Nee, ik lees een byte uit een file! 

9E95- 

20 

EA 

9D 

JSR 

$9DEA Ja, dan eerst registers qoedzetten 

9E98- 

A4 

24 


LDY 

$24 ^ 

9E9A- 

A9 

60 


LDA 

#$60 
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9E9C- 

91 

28 


STA 

($28),Y 


9E9E- 

AD 

B3 

AA 

LDA 

$AAB3 

Bezig met EXEC ? 

9EA1- 

FO 

03 


BEQ 

$9EA6 

9EA3- 

20 

82 

A6 

JSR 

$A682 

Haal dan volgende byte uit EXEC file 

9EA6- 

A9 

03 


LDA 

#$03 

9EA8- 

8D 

52 

AA 

STA 

$AA52 


9EAB- 

20 

BA 

9F 

JSR 

$9FBA 

Restore de registers t.b.v. DOS 

9EAE- 

20 

BA 

9E 

JSR 

$9EBA 

Naar input routine 

9EB1- 

8D 

5C 

AA 

STA 

$AA5C 

Save inputkarakter 

9EB4- 

8E 

5A 

AA 

STX 

$AA5A 

Zet X weg met nieuwe waarde 

9EB7- 

4C 

B3 

9F 

JMP 

$9FB3 

DOS exit 

9EBA- 

6C 

38 

00 

JMP 

($0038) 

Spring naar KSW routine 

9EBD- 

20 

D1 

9E 

JSR 

$9ED1 

Save registers t.b.v. DOS 

9EC0- 

AD 

52 

AA 

LDA 

$AA52 

Haal de video intercept pointer op 

9EC3- 

OA 



ASL 


en gebruik hem als index 

9EC4- 

AA 



TAX 


voor de State Handler tabel 

9EC5- 

BD 

11 

9D 

LDA 

$9D11,X 

vanaf 9D10 . Niet opgenomen in listing 

9EC8- 

48 



PHA 



9EC9- 

BD 

10 

9D 

LDA 

$9D10,X 

Bepaal nu de funktie en spring er 

9ECC- 

48 



PHA 


heen. 

9ECD- 

AD 

5C 

AA 

LDA 

$AA5C 

Save A register 

9ED0- 

60 



RTS 


Klaar - 

9ED1- 

8D 

5C 

AA 

STA 

$AA5C 

Register opberg routine ********* 

9ED4- 

8E 

5A 

AA 

STX 

$AA5A 


9ED7- 

8C 

5B 

AA 

STY 

$AA5B 


9EDA- 

BA 



TSX 



9EDB- 

E8 



INX 



9EDC- 

E8 



INX 



9EDD- 

8E 

59 

AA 

STX 

$AA59 


9EE0- 

A2 

03 


LDX 

#$03 


9EE2- 

BD 

53 

AA 

LDA 

$AA53,X 

Stel de I/O afhandeling in 

9EE5- 

95 

36 


STA 

$36, X 

voor KSW en CSW vectors 

9EE7- 

CA 



DEX 

van $36-$39 

9EE8- 

10 

F8 


BPL 

$9EE2 


9EEA- 

60 



RTS 


Klaar - 

9EEB- 

AE 

B7 

AA 

LDX 

$AAB7 

State 0 output afhandeling ****** 

9EEE- 

FO 

03 


BEQ 

$9EF3 

Begin van een programma/commandoregel 

9EF0- 

4C 

78 

9F 

JMP 

$9F78 

Bezig met "RUN" ? Verder dan! 

9EF3- 

AE 

51 

AA- 

LDX 

$AA51 

Of zijn we bezig met een file ? 

9EF6- 

FO 

08 


BEQ 

$9F00 

Als de read-flag er is, kijk dan naar 

9EF8- 

C9 

BF 


CMP 

#$BF 

"?” als code voor Basic input 

9EFA- 

FO 

75 


BEQ 

$9F71 

Naar State 6 en laat hem weg. 

9EFC- 

C5 

33 


CMP 

$33 

Is het het begin van een regel ? 

9EFE- 

FO 

27 


BEQ 

$9F27 

Dan naar State 2 voor afhandeling 

9F00- 

A2 

02 


LDX 

#$02 


9F02- 

8E 

52 

AA 

STX 

$AA52 


9F05- 

CD 

B2 

AA 

CMP 

$AAB2 

Als het eerste karakter geen CTRL-D 

9F08- 

DO 

19 


BNE 

$9F23 

is, dan doorgaan met State 2 

9F0A- 

CA 



DEX 



9F0B- 

8E 

52 

AA 

STX 

$AA52 


9F0E- 

CA 



DEX 



9F0F- 

8E 

5D 

AA 

STX 

$AA5D 


9F12- 

AE 

5D 

AA 

LDX 

$AA5D 

State 1 output afhandeling ******* 

9F15- 

9D 

00 

02 

STA 

$0200,X 

Berg inputkarakter in input-buffer gp 

9F18- 

E8 



INX 


9F19- 

8E 

5D 

AA 

STX 

$AA5D 


9F1C- 

C9 

8D 


CMP 

#$8D 

Zie je deze "return"? 

9F1E- 

DO 

75 


BNE 

$9F95 

Nee, dan eindigen via 9F95 

9F20- 

4C 

CD 

9F 

JMP 

$9FCD 

Anders naar command scanner 

9F23- 

C9 

8D 


CMP 

#$8D 

State 2 output afhandeling ******* 

9F25- 

DO 

7D 


BNE 

$9FA4 

Echo karakter op het scherm als het 

9F27- 

A2 

00 


LDX 

#$00 

geen "return" is. Anders State 0 doen. 
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9F29- 

8E 

52 

AA 

STX 

*AA52 

Berg de CSW state op 

9F2C- 

4C 

A4 

9F 

JMP 

$9FA4 

Jump naar ’echo karakters op scherm' 

9F2F- 

A2 

00 


LDX 

#$00 

State 3 output afhandeling ******** 

9F31- 

8E 

52 

AA 

STX 

$AA52 

De commando status wordt 0 {input} 

9F34- 

C9 

8D 


CMP 

#$8D 

Einde van de regel ? 

9F36- 

FO 

07 


BEQ 

$9F3F 

Naar afhandeling EOL/einde regel 

9F38- 

AD 

B3 

AA 

LDA 

$AAB3 

Controleer EXEC flag 

9F3B- 

FO 

67 


BEQ 

$9FA4 

Ga naar 'echo karakter* 

9F3D- 

DO 

5E 


BNE 

$9F9D 

Ga naar 'MON I' 

9F3F- 

48 



PHA 


Aha, einde van de regel! 

9F40- 

38 



SEC 


Als er geen Basic- of EXEC programma 

9F41- 

AD 

B3 

AA 

LDA 

$AAB3 

bezig is (RUN), bekijk dan of er 

9F44- 

DO 

03 


BNE 

$9F49 

een DOS commando komt. 

9F46- 

20 

5E 

A6 

JSR 

$A65E 


9F49- 

68 



PLA 



9F4A- 

90 

EC 


BCC 

$9F38 


9F4C- 

AE 

5A 

AA 

LDX 

$AA5A 

Anders wordt het karakter weergegeven 

9F4F- 

4C 

15 

9F 

JMP 

$9F15 

(geechood) en switch naar State 1 

9F52- 

C9 

8D 


CMP 

#$8D 

State 4 output afhandeling ******** 

9F54- 

DO 

05 


BNE 

$9F5B 

"return" ? {write to file} 

9F56- 

A9 

05 


LDA 

#$05 


9F58- 

BD 

52 

AA 

STA 

$AA52 

CSW State 

9F5B- 

20 

OE 

A6 

JSR 

$A60E 

Write byte naar disk file 

9F5E- 

4C 

99 

9F 

JMP 

$9F99 

Exit DOS indien MON 0. 

9F61- 

CD 

B2 

AA 

CMP 

$AAB2 

State 5 output afhandeling ******* 

9F64- 

FO 

85 


BEQ 

$9EEB 

Bij CTRL-D naar State 0 {write data} 

9F66- 

C9 

8A 


CMP 

#$8A 

Als er een line-feed is, 

9F68- 

FO 

FI 


BEQ 

$9F5B 

gewoon regel afmaken 

9F6A- 

A2 

04 


LDX 

#$04 

Anders terug naar State 4 

9F6C- 

8E 

52 

AA 

STX 

$AA52 


9F6F- 

DO 

El 


BNE 

$9F52 


9F71- 

A9 

00 


LDA 

#$00 

State 6 output afhandeling ******** 

9F73- 

8D 

52 

AA 

STA 

$AA52 

Set CSW State op 0 {prompt weg} 

9F76- 

FO 

25 


BEQ 

$9F9D 

Echo karakter bij MON I 

9F78- 

A9 

00 


LDA 

#$00 

Afloop van het RUN commando 

9F7A- 

8D 

B7 

AA 

STA 

$AAB7 

Even bijhouden 

9F7D- 

20 

51 

A8 

JSR 

$A851 

Keyboard vectors op hun plaatsen 

9F80- 

4C 

DC 

A4 

JMP 

$A4DC 

en de routine afsluiten 

9F83- 

AD 

00 

02 

LDA 

$0200 

Einde commando scan via buffer 

9F86- 

CD 

B2 

AA 

CMP 

$AAB2 

CTRL-D ? Dan echo/weergeven 

9F89- 

FO 

OA 


BEQ 

$9F95 

naar'echo karakter'en exit DOS 

9F8B- 

A9 

8D 


LDA 

#$8D 

Doe anders net of er een return was 

9F8D- 

8D 

00 

02 

STA 

$0200 

en zorg dat het DOS dit ziet. 

9F90- 

A2 

00 


LDX 

#$00 


9F92- 

8E 

5A 

AA 

STX 

$AA5A 


9F95- 

A9 

40 


LDA 

#$40 

Echo karakter routines en exit DOS *** 

9F97- 

DO 

06 


BNE 

$9F9F 

Echo indien MON C 

9F99- 

A9 

10 


LDA 

#$10 

of vervolg 

9F9B- 

DO 

02 


BNE 

$9F9F 

Echo indien MON 0 

9F9D- 

A9 

20 


LDA 

#$20 

Echo indien MON I 

9F9F- 

2D 

5E 

AA 

AND 

$AA5E 

AND MON flags 

9FA2- 

FO 

OF 


BEQ 

$9FB3 

DOS exit routine pakken 

9FA4- 

20 

BA 

9F 

JSR 

$9FBA 

Herstel de registers t.b.v. het DOS 

9FA7- 

20 

C5 

9F 

JSR 

$9FC5 

Echo het karakter naar het scherm 

9FAA- 

8D 

5C 

AA 

STA 

$AA5C 

Save A register 

9FAD- 

8C 

5B 

AA 

STY 

$AA5B 

Save Y register 

9FB0- 

8E 

5A 

AA 

STX 

$AA5A 

Save X register 

9FB3- 

20 

51 

A8 

JSR 

$A851 

Herstel registers 

9FB6- 

AE 

59 

AA 

LDX 

$AA59 


9FB9- 

9A 



TXS 



9FBA- 

AD 

5C 

AA 

LDA 

$AA5C 


9FBD- 

AC 

5B 

AA 

LDY 

$AA5B 
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9FC0- 

AE 5A 

AA 

LDX 

♦AA5A 

9FC3- 

38 


SEC 


9FC4- 

60 


RTS 


9FC5- 

6C 36 

00 

JMP 

(*0036) 

9FC8- 

A9 8D 


LDA 

#*8D 

9FCA- 

4C C5 

9F 

JMP 

*9FC5 

9FCD- 

AO FF 


LDY 

#*FF 

9FCF- 

8C 5F 

AA 

STY 

♦AA5F 

9FD2- 

C8 


I NY 


9FD3- 

BC 62 

AA 

STY 

*AA62 

9FD6- 

EE 5F 

AA 

INC 

*AA5F 

9FD9- 

A2 00 


LDX 

#*00 

9FDB- 

08 


PHP 


9FDC- 

BD 00 

02 

LDA 

*0200,X 

9FDF- 

CD B2 

AA 

CMP 

*AAB2 

9FE2- 

DO 01 


BNE 

*9FE5 

9FE4- 

E8 


INX 


9FE5- 

8E 5D 

AA 

STX 

*AA5D 

9FE8- 

20 A4 

A1 

JSR 

*A1A4 

9FEB- 

29 7F 


AND 

#*7F 

9FED- 

59 84 

AS 

EOR 

*A884,Y 

9FF0- 

C8 


I NY 


9FF1- 

OA 


ASL 


9FF2- 

FO 02 


BEQ 

*9FF6 

9FF4- 

68 


PLA 


9FF5- 

08 


PHP 


9FF6- 

90 FO 


BCC 

*9FE8 

9FF8- 

28 


PLP 


9FF9- 

FO 20 


BEQ 

*A01B 

9FFB- 

B9 84 

A8 

LDA 

*A884,Y 

9FFE- 

DO D6 


BNE 

*9FD6 

A000- 

AD 00 

02 

LDA 

*0200 

A003- 

CD B2 

AA 

CMP 

*AAB2 

A006- 

FO 03 


BEQ 

*A00B 

A008- 

4C A4 

9F 

JMP 

*9FA4 

AOOB- 

AD 01 

02 

LDA 

*0201 

AOOE- 

C9 8D 


CMP 

#*8D 

AO IC¬ 

DO 06 


BNE 

*A018 

AO 12- 

20 5B 

A7 

JSR 

*A75B 

A015- 

4C 95 

9F 

JMP 

*9F95 

A018- 

4C C4 

A6 

JMP 

*A6C4 

A01B- 

OE 5F 

AA 

ASL 

*AA5F 

A01E- 

AC 5F 

AA 

LDY 

*AA5F 

A021- 

20 5E 

A6 

JSR 

*A65E 

A024- 

90 OC 


BCC 

*A032 

A026- 

A9 02 


LDA 

#*02 

A028- 

39 09 

A9 

AND 

*A909,Y 

A02B- 

FO 05 


BEQ 

♦A032 

A02D- 

A9 OF 


LDA 

#*0F 

A02F- 

4C D2 

A6 

JMP 

*A6D2 

A032- 

CO 06 


CPY 

#*06 

A034- 

DO 02 


BNE 

*A038 

A036- 

84 33 


STY 

*33 

A038- 

A9 20 


LDA 

#*20 

A03A- 

39 09 

A9 

AND 

*A909,Y 

A03D- 

FO 61 


BEQ 

♦AOAO 

A03F- 

20 95 

AO 

JSR 

*A095 

A042- 

08 


PHP 


A043- 

20 A4 

A1 

JSR 

*A1A4 

A046- 

FO IE 


BEQ 

*A066 

A048- 

OA 


ASL 


A049- 

90 05 


BCC 

♦A050 


einde DOS operatie 

Jump naar ware CSW routine $36-37) 

return 

Jump naar COUT 

DOS commando routine *********** 

0 in Y van commando index tabel 
en reset de index voor 
"commando's in uitvoering" 

Schuif commando index op 

haal karakters uit inputbuffer 
we willen geen CTRL-D meer zien 
dus afhandelen 

of indien afwezig verder lezen 

X als commando teller 
Subroutine die spaties weghaalt 
gevonden karakter(s) aanpassen 
en vergelijken met commandotabel 
en als het nog niet klopt, kijkt 
dan of er meer karakters volgen 

gooi de spaties eruit 

en loop alles opnieuw na! 

bereken nieuwe index 
voor de commando-herkenning 
keer terug naar 9FD6 
Geen commando ? 

Toch geen CTRL-D ? 

Werk registers bij 
volgend karakter 
Aha, return ? 

Nee, dan is het goed 
want anders gaat er 
nu direkt een foutmelding komen 
"Syntax Error"! 

Bereken een index voor de operand 
tabel van gevonden commando's 
Is Basic operationeel ? 

Anders doorschuiven naar A032 
Indien Basic niet operationeel is 
en het niet gaat om een "direct" 
©mmando dan wordt het spannend! 
Even instellen: 

"NOT DIRECT COMMAND" 

Nu wordt de prompt weggehaald 

Is een filenaam vereist ? 

Geen naam te vinden! Naar $A0A0 
Clear de filenaam buffer 

Weg met spaties 

Vergelijk nu de filenaam 

met de filenaam in de Disk-buffer 
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A04B- 

30 03 

BMI 

$A050 


A04D- 

4C 00 AO 

JMP 

$A000 


A050- 

6A 

ROR 



A051- 

4C 59 AO 

JMP 

$A059 

Filenaam afhandeling 

A054- 

20 93 A1 

JSR 

$A193 


A057- 

FO OD 

BEQ 

$A066 


A059- 

99 75 AA 

STA 

$AA75,Y 


A05C- 

C8 

I NY 



A05D- 

CO 3C 

CPY 

#$3C 

Kijk of er een "," volgt! 

A05F- 

90 F3 

BCC 

$A054 


A061- 

20 93 A1 

JSR 

$A193 


A064- 

DO FB 

BNE 

$A061 


A066- 

28 

PLP 



A067- 

DO OF 

BNE 

$A078 

Het kan ook zijn, dat er een 

A069- 

AC 5F AA 

LDY 

$AA5F 

filenaam nodig is, waar er 

A06C- 

A9 10 

LDA 

#$10 

geen werd opgegeven. 

A06E- 

39 09 A9 

AND 

$A909,Y 

Ofdat een commando geen filenaam 

A071- 

FO OC 

BEQ 

$A07F 

vereist: b.v. SAVE ->-tape 

A073- 

AO IE 

LDY 

#$1E 


A075- 

08 

PHP 



A076- 

DO CB 

BNE 

$A043 


A078- 

AD 93 AA 

LDA 

$AA93 


A07B- 

C9 AO 

CMP 

#$A0 

Anders zal er straks een 

A07D- 

FO 13 

BEQ 

$A092 

foutmelding volgen. 

A07F- 

AD 75 AA 

LDA 

$AA75 


A082- 

C9 AO 

CMP 

#$A0 


A084- 

DO 4B 

BNE 

$A0D1 


A086- 

AC 5F AA 

LDY 

$AA5F 


A089- 

A9 CO 

LDA 

#$C0 


A08B- 

39 09 A9 

AND 

$A909,Y 


A08E- 

FO 02 

BEQ 

$A092 


A090- 

10 3F 

BPL 

$A0D1 


A092- 

4C 00 AO 

JMP 

$A000 


A095- 

AO 3C 

LDY 

#$3C 

Subroutine voor het opheffen 

A097- 

A9 AO 

LDA 

#$A0 

van de filenamen 

A099- 

99 74 AA 

STA 

$AA74,Y 


A09C- 

88 

DEY 



A09D- 

DO FA 

BNE 

$A099 


A09F- 

60 

RTS 


Klaar - 

AOAO- 

8D 75 AA 

STA 

$AA75 

Er was geen filenaam vereist 

A0A3- 

A9 OC 

LDA 

#$0C 

Was er een positionele operand 

A0A5- 

39 09 A9 

AND 

$A909,Y 

vereist ? 

A0A8- 

FO 27 

BEQ 

$A0D1 

Nee, dan naar A0D1 

AOAA- 

20 B9 A1 

JSR 

$A1B9 

Anders moet deze worden geconverteerd 

AOAD- 

BO IF 

BCS 

$AOCE 

Of werd het getal weggelaten ? 

AOAF- 

A8 

TAY 



AOBO- 

DO 17 

BNE 

$A0C9 


A0B2- 

EO 11 

CPX 

#$11 

Was het getal binnen de 

AOB4- 

BO 13 

BCS 

$A0C9 

gestelde grenzen ? 

A0B6- 

AC 5F AA 

LDY 

$AA5F 


A0B9- 

A9 08 

LDA 

#$08 


AOBB- 

39 09 A9 

AND 

$A909,Y Controleer het 

AOBE- 

FO 06 

BEQ 

$A0C6 


AOCO- 

EO 08 

CPX 

#$08 


AOC2- 

BO CE 

BCS 

$A092 


A0C4- 

90 OB 

BCC 

$AOD 1 

Dik voor mekaar! 

A0C6- 

8A 

TXA 


Want anders valt 

A0C7- 

DO 08 

BNE 

$AOD 1 

er een foutmelding te 

A0C9- 

A9 02 

LDA 

#$02 

verwachten: 

AOCB- 

4C D2 A6 

JMP 

$A6D2 

"RANGE ERROR" 

AOCE- 

4C C4 A6 

JMP 

$A6C4 


AOD1 - 

A9 00 

LDA 

#$00 

Set vervalwaarden (V = 0,B = 0,L = 0 ) 
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A0D3- 

8D 

65 

AA 

STA 

$AA65 Keyword dat werd gevonden 

A0D6- 

8D 

74 

AA 

STA 

$AA74 Mon 

A0D9- 

8D 

66 

AA 

STA 

$AA66 Vol 

AODC- 

8D 

6C 

AA 

STA 

$AA6C Len L 

AODF- 

8D 

6D 

AA 

STA 

♦AA6D Len H 

A0E2- 

20 

DC 

BF 

JSR 

$BFDC Byte 

A0E5- 

AD 

5D 

AA 

LDA 

♦AA5D Index 

A0E8- 

20 

A4 

A1 

JSR 

$A1A4 Routine t.b.v. positionele operand 

AOEB- 

DO 

IF 


BNE 

$A10C onder weglating van spaties 

AOED- 

C9 

8D 


CMP 

#$8D return gevonden ? 

AOEF- 

DO 

F7 


BNE 

$A0E8 anders zijn we nog niet klaar! 

AOF1- 

AE 

5F 

AA 

LDX 

$AA5F Command index in X 

A0F4- 

AD 

65 

AA 

LDA 

$AA65 Keyword index in A 

A0F7- 

ID 

OA 

A9 

ORA 

$A90A,XHebben we nu het hele commando 

AOFA- 

5D 

OA 

A9 

EOR 

$A90A,Xbinnen gehaald ? 

AOFD- 

DO 

93 


BNE 

$A092 

AOFF- 

AE 

63 

AA 

LDX 

*AA63 

A102- 

FO 

76 


BEQ 

$A17A OK, verwerk dan nu het commando. 

A104- 

8D 

63 

AA 

STA 

$AA63 

A107- 

8E 

5D 

AA 

STX 

$AA5D 

AlOA- 

DO 

DC 


BNE 

$A0E8 

AlOC- 

A2 

OA 


LDX 

#$0A Dan gaan we nu het opgegeven 

AlOE- 

DD 

40 

A9 

CMP 

$A940, X commando vergelijken met de DOS tabel 

A111- 

FO 

05 


BEQ 

$A118 Als het niet klopt 

A113- 

CA 



DEX 

volgt er "Syntax Error" 

A114- 

DO 

F8 


BNE 

$A10E 

A116- 

FO 

B6 


BEQ 

$A0CE 

A118- 

BD 

4A 

A9 

LDA 

$A94A,X Afhandeling positionele operand 

A11B- 

30 

47 


BMI 

$A164 

A11D- 

OD 

65 

AA 

ORA 

$AA65 

A120- 

8D 

65 

AA 

STA 

♦AA65 

A123- 

CA 



DEX 


A124- 

8E 

64 

AA 

STX 

$AA64 

A127- 

20 

B9 

A1 

JSR 

$A1B9 Haal waarde op van keyword 

A12A- 

BO 

A2 


BCS 

$A0CE 

A12C- 

AD 

64 

AA 

LDA 

$AA64 Controle de waarde 

A12F- 

OA 



ASL 


A130- 

OA 



ASL 


A131- 

A8 



TAY 

aan de hand 

A132- 

A5 

45 


LDA 

$45 

A134- 

DO 

09 


BNE 

$A13F van de 

A136- 

A5 

44 


LDA 

$44 

A138- 

D9 

55 

A9 

CMP 

$A955,Y Waarden tabel 

A13B- 

90 

BC 


BCC 

$A0C9 

A13D- 

A5 

45 


LDA 

$45 

A13F- 

D9 

58 

A9 

CMP 

$A958,Y 

A142- 

90 

OB 


BCC 

$A14F 

A144- 

DO 

83 


BNE 

$A0C9 

A146- 

A5 

44 


LDA 

$44 

A148- 

D9 

57 

A9 

CMP 

$A957,Y 

A14B- 

90 

02 


BCC 

$A14F 

A14D- 

DO 

F5 


BNE 

$A144 

A14F- 

AD 

63 

AA 

LDA 

$AA63 

A152- 

DO 

94 


BNE 

$A0E8 

A154- 

98 



TYA 


A155- 

4A 



LSR 


A156- 

A8 



TAY 


A157- 

A5 

45 


LDA 

$45 

A159- 

99 

67 

AA 

STA 

$AA67,Y Bewaar de waarde van het keyiword 

A15C- 

A5 

44 


LDA 

$44 

A15E- 

99 

66 

AA 

STA 

$AA66,Y 

A161- 

4C 

E8 

AO 

JMP 

$A0E8 
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A164- 

48 



PHA 



A165- 

A9 

80 


LDA 

#$80 

Set de juiste bits, indien 

A167- 

OD 

65 

AA 

ORA 

$AA65 

MON of NOMON werd ontdekt. 

A1 AA¬ 

8D 

65 

AA 

STA 

$AA65 


AI 6D- 

68 



PLA 



A16E- 

29 

7F 


AND 

#$7F 


A170- 

OD 

74 

AA 

ORA 

$AA74 


A173- 

8D 

74 

AA 

STA 

$AA74 


A176- 

DO 

E9 


BNE 

$A161 


A178- 

FO 

9C 


BEQ 

$A116 


A17A- 

20 

80 

A1 

JSR 

$A180 

Proces geldig DOS commando 

A17D- 

4C 

83 

9F 

JMP 

$9F83 

Echo via 9F83 

A180- 

20 

5B 

A7 

JSR 

$A75B 

DO Command *************** 

A183- 

20 

AE 

A1 

JSR 

$A1AE 

Clear file manager parm list 

A186- 

AD 

5F 

AA 

LDA 

$AA5F 

Haal commando index op 

A189- 

AA 



TAX 



A18A- 

BD 

IF 

9D 

LDA 

$9D1F, 

X Adres van de betreffende 

A18D- 

48 



PHA 


commando afhandelingsroutines 

A18E- 

BD 

IE 

9D 

LDA 

$9D1E, 

X 

A191- 

48 



PHA 



A192- 

60 



RTS 


Klaar - 

A193- 

AE 

5D 

AA 

LDX 

$AA5D 

Haal volgend karakter van de 

A196- 

BD 

00 

02 

LDA 

$0200, 

X commando regel 

A199- 

C9 

8D 


CMP 

#$8D 

Was dit een return? 

A19B- 

FO 

06 


BEQ 

$A1A3 

dan klaar 

A19D- 

E8 



INX 



A19E- 

8E 

5D 

AA 

STX 

$AA5D 

houdt index bij 

A1A1- 

C9 

AC 


CMP 

#$AC 

he, een ? 

A1A3- 

60 



RTS 


Klaar - 

A1A4- 

20 

93 

A1 

JSR 

$A193 

Werk de spaties weg 

A1A7- 

FO 

FA 


BEQ 

$A1A3 

Z-flag is set, indien M ," 

A1A9- 

C9 

AO 


CMP 

#$A0 

of return als eerste (niet-spatie) 

A1AB- 

FO 

F7 


BEQ 

$A1A4 

karakter.wordt ontmoet. 

A1AD- 

60 



RTS 


Klaar - 

A1AE- 

A9 

00 


LDA 

#$00 

File manager parameter lijst 

A1B0- 

AO 

16 


LDY 

#$16 

wordt nu op 0 gezet 

A1B2- 

99 

BA 

B5 

STA 

$B5BA, 

Y 

A1B5- 

88 



DEY 



A1B6- 

DO 

FA 


BNE 

$A1B2 


A1B8- 

60 



RTS 


Klaar - 

A1B9- 

A9 

00 


LDA 

#$00 

Converteer het numerieke, 

A1BB- 

85 

44 


STA 

$44 

ASCII gecodeerde karakter 

A1BD- 

85 

45 


STA 

$45 

in het binaire getal 

A1BF- 

20 

A4 

A1 

JSR 

$A1A4 


A1C2- 

08 



PHP 



A1C3- 

C9 

A4 


CMP 

#$A4 

Compair "$" teken 

A1C5- 

FO 

3C 


BEQ 

$A203 

Is het een hexadecimale code ? 

A1C7- 

28 



PLP 


Nee, een decimale. 

A1C8- 

4C 

CE 

A1 

JMP 

$A1CE 

A1CB- 

20 

A4 

A1 

JSR 

$A1A4 

Weg met de spaties 

A1CE- 

DO 

06 


BNE 

$A1D6 

Conversieroutine 

A1DO- 

A6 

44 


LDX 

$44 


A1D2- 

A5 

45 


LDA 

$45 


A1D4- 

18 



CLC 



A1D5- 

60 



RTS 



A1D6- 

38 



SEC 



A1D7- 

E9 

BO 


SBC 

#$B0 


A1D9- 

30 

21 


BMI 

$A1FC 


A1DB- 

C9 

OA 


CMP 

#$0A 


A1DD- 

BO 

ID 


BCS 

$A1FC 


A1DF- 

20 

FE 

A1 

JSR 

$A1FE 


A1E2- 

65 

44 


ADC 

$44 
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A1E4- 

AA 



TAX 



A1E5- 

A9 

00 


LDA 

#♦00 


A1E7- 

65 

45 


ADC 

♦45 


A1E9- 

A8 



TAY 



A1EA- 

20 

FE 

A1 

JSR 

♦A1FE 


A1ED- 

20 

FE 

A1 

JSR 

♦A1FE 


A1F0- 

8A 



TXA 



A1F1- 

65 

44 


ADC 

♦44 


A1F3- 

85 

44 


STA 

♦44 


A1F5- 

98 



TYA 



A1F6- 

65 

45 


ADC 

♦45 


A1F8- 

85 

45 


STA 

♦45 


A1FA- 

90 

CF 


BCC 

♦A1CB 


A1FC- 

38 



SEC 



A1FD- 

60 



RTS 


Klaar - 

A1FE- 

06 

44 


ASL 

♦44 

Vermenigvuldig 

A200- 

26 

45 


ROL 

♦45 

A202- 

60 



RTS 


Decimale conversie klaar- 

A203- 

28 



PLP 



A204- 

20 

A4 

A1 

JSR 

♦A1A4 

weg met de spaties 

A207- 

FO 

C5 


BEQ 

♦A1CE 

Begin van de hex conversie 

A209- 

38 



SEC 



A20A- 

E9 

BO 


SBC 

#♦60 


A20C- 

30 

EE 


BMI 

♦A1FC 


A20E- 

C9 

OA 


CMP 

#*:>a 


A210- 

90 

08 


BCC 

♦A21A 


A212- 

E9 

07 


SBC 

#♦07 


A214- 

30 

E6 


BMI 

♦A1FC 


A216- 

C9 

10 


CMP 

#♦10 


A218- 

BO 

E2 


BCS 

♦A1FC 


A21A- 

A2 

04 


LDX 

#♦04 


A21C- 

20 

FE 

A1 

JSR 

♦A1FE 


A21F- 

CA 



DEX 



A220- 

DO 

FA 


BNE 

♦A21C 


A222- 

05 

44 


ORA 

♦44 


A224- 

85 

44 


STA 

♦44 


A226- 

4C 

04 

A2 

JMP 

♦A204 


A229- 

A5 

44 


LDA 

♦44 

****PR;£x afhandeling ******** 

A22B- 

4C 

95 

FE 

JMP 

♦FE95 

Exit via ROM 

A22E- 

A5 

44 


LDA 

♦44 

****IN^x afhandeling ******** 

A230- 

4C 

8B 

FE 

JMP 

♦FE8B 

Exit via ROM 

A233- 

AD 

5E 

AA 

LDA 

♦AA5E 

****MON afhandeling ******** 

A236- 

OD 

74 

AA 

ORA 

♦AA74 

A239- 

8D 

5E 

AA 

STA 

♦AA5E 

Set nieuvve flags 

A23C- 

60 



RTS 


A23D- 

2C 

74 

AA 

BIT 

♦AA74 

****NOMON afhandeling ******** 

A240- 

50 

03 


BVC 

♦A245 


A242- 

20 

C8 

9F 

JSR 

♦9FC8 

Indien C was gegeven, 

A245- 

A9 

70 


LDA 

#♦70 

geef dan een return 

A247- 

4D 

74 

AA 

EOR 

♦AA74 


A24A- 

2D 

5E 

AA 

AND 

♦AA5E 

Set de juiste bits 

A24D- 

8D 

5E 

AA 

STA 

♦AA5E 


A250- 

60 



RTS 


Klaar- 

A251- 

A9 

00 


LDA 

#♦00 

MAXFILES afhandeling 

A253- 

8D 

B3 

AA 

STA 

♦AAB3 

Stop EXEC indien operationeel 

A256- 

A5 

44 


LDA 

♦44 


A258- 

48 



PHA 



A259- 

20 

16 

A3 

JSR 

♦A316 

Close files 

A25C- 

68 



PLA 



A25D- 

8D 

57 

AA 

STA 

♦AA57 

Set nieuwe Maxfileswaarde in tabel 

A260- 

4C 

D4 

A7 

JMP 

♦A7D4 

Bouw nieuwe filebuffers 

A263- 

A9 

05 


LDA 

#♦05 

DELETE afhandeling 
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A265- 

20 

AA A2 

JSR 

*A2AA 

Ga naar afhandelingsroutine 

A268- 

20 

64 A7 

JSR 

$A764 

Maak de buffer die door de file werd 

A26B- 

AO 

00 

LDY 

#$00 

gebruikt weer vrij. 

A26D- 

98 


TYA 



A26E- 

91 

40 

STA 

($40),Y 


A270- 

60 


RTS 


Klaar- 

A271- 

A9 

07 

LDA 

#$07 

LOCK/UNLOCK afhandeling ***** 

A273- 

DO 

02 

BNE 

$A277 

Haal lock opcode uit file manager 

A275- 

A9 

08 

LDA 

#$08 

of de unlock opcode 

A277- 

20 

AA A2 

JSR 

$A2AA 

Set file manager 'open' voor de functie 

A27A- 

4C 

EA A2 

JMP 

$A2EA 

Keer tenslotte terug via Close 

A27D- 

A9 

OC 

LDA 

#$0C 

VERIFY afhandeling ******** 

A27F- 

DO 

F6 

BNE 

$A277 

Voer de functie uit 

A281- 

AD 

08 9D 

LDA 

$9D08 

RENAME afhandeling ******** 

A284- 

8D 

BD B5 

STA 

$B5BD 

Berg adres 2e naam op in filemanager 

A287- 

AD 

09 9D 

LDA 

$9D09 


A28A- 

8D 

BE B5 

STA 

$B5BE 


A28D- 

A9 

09 

LDA 

#$09 

Haal de functie opcode op 

A28F- 

8D 

63 AA 

STA 

$AA63 

en zet hem weg 

A292- 

20 

C8 A2 

JSR 

$A2C8 

Naar de file manager driver 

A295- 

4C 

EA A2 

JMP 

$A2EA 

en stop via Close 

A298- 

20 

A3 A2 

JSR 

$A2A3 

APPEND afhandeling ******* 

A29B- 

20 

BC A6 

JSR 

$A68C 

Open file en lees hem tot 0 

A29E- 

DO 

FB 

BNE 

$A29B 

wordt ontmoet. Toggel Append flag. 

A2A0- 

4C 

71 B6 

JMP 

$B671 

Keer terug via POSITION 

A2A3- 

A9 

00 

LDA 

#$00 

OPEN afhandeling ******** 

A2A5- 

4C 

D5 A3 

JMP 

$A3D5 

Ga naar afhandelingsroutine 

A2A8- 

A9 

01 

LDA 

#$01 

File Manager Controle Routine **** 

A2AA- 

8D 

63 AA 

STA 

$AA63 

"open" opcode. Indien geen L waarde, 

A2AD- 

AD 

6C AA 

LDA 

$AA6C 

dan 0001 wegzetten in parmlist 

A2B0- 

DO 

OA 

BNE 

$A2BC 


A2B2- 

AD 

6D AA 

LDA 

$AA6D 

L adres +1 

A2B5- 

DO 

05 

BNE 

$A2BC 


A2B7- 

A9 

01 

LDA 

#$01 


A2B9- 

8D 

6C AA 

STA 

$AA6C 

L waarde verschuiven 

A2BC- 

AD 

6C AA 

LDA 

$AA6C 


A2BF- 

8D 

BD B5 

STA 

$B5BD 

record nummer 

A2C2- 

AD 

6D AA 

LDA 

$AA6D 


A2C5- 

8D 

BE B5 

STA 

$B5BE 

recnum +1 

A2C8- 

20 

EA A2 

JSR 

$A2EA 

Close reeds geopende file. 

A2CB- 

A5 

45 

LDA 

$45 


A2CD- 

DO 

03 

BNE 

$A2D2 

Is er een geschikte buffer ? 

A2CF- 

4C 

C8 A6 

JMP 

$A6C8 

"NO FILE BUFFER AVAILABLE"! 

A2D2- 

85 

41 

STA 

$41 

Waar is de buffer ? 

A2D4- 

A5 

44 

LDA 

$44 


A2D6- 

85 

40 

STA 

$40 

Completteer het adres 

A2D8- 

20 

43 A7 

JSR 

$A743 

Copieer filenaam in buffer 

A2DB- 

20 

4E A7 

JSR 

$A74E 

Copieer filepointers in f.m. parmlist 

A2DE- 

20 

1A A7 

JSR 

$A71 A 

Rond die handeling af 

A2E1- 

AD 

63 AA 

LDA 

$AA63 

Pik variabele uit datalijst {index} 

A2E4- 

8D 

BB B5 

STA 

$B5BB 

Zet indexcode van de functie in parmlist 

A2E7- 

4C 

A8 A6 

JMP 

$A6A8 

Exit via de file manager driver 

A2EA- 

AD 

75 AA 

LDA 

$AA75 

CLOSE commando afhandeling ******* 

A2ED- 

C9 

AO 

CMP 

#$A0 

Is geen filenaam opgegeven, 

A2EF- 

FO 

25 

BEQ 

$A316 

sluit dan alle files af. 

A2F1- 

20 

64 A7 

JSR 

$A764 

Of zoek open file af naar filenaam 

A2F4- 

BO 

3A 

BCS 

$A330 

en is file niet open, dan exit 

A2F6- 

20 

FC A2 

JSR 

$A2FC 

close file en maak buffer vrij 

A2F9- 

4C 

EA A2 

JMP 

$A2EA 

Nu terug voor na-controle buffers 

A2FC- 

20 

AF A7 

JSR 

$A7AF 

Is dit een EXEC buffer ? 

A2FF- 

DO 

05 

BNE 

$A306 

Als dat zo is, dan EXEC flag afzetten 

A301- 

A9 

00 

LDA 

#$00 

Dag flag! 
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A303- 

8D 

B3 

AA 

STA 

*AAB3 


A306- 

AO 

00 


LDY 

#$00 

Maak nu de buffer vrij 

A308- 

98 



TYA 


door een 0 te plaatsen 

A309- 

91 

40 


STA 

($40),Y 

in het filenaam field 

A30B- 

20 

4E 

A7 

JSR 

$A74E 

Copieer de stand van zaken in 

A30E- 

A9 

02 


LDA 

#$02 

de bekende parmlist en set 

A310- 

8D 

BB 

B5 

STA 

$B5BB 

de file manager opcode op CLOSE. 

A313- 

4C 

A8 

A6 

JMP 

$A6A8 

Exit via file manager driver 

A316- 

20 

92 

A7 

JSR 

$A792 

CLOSE ALL FILES ******* 

A319- 

DO 

05 


BNE 

$A320 

Wijs naar eerste buffer; is het EXEC? 

A31B- 

20 

9A 

A7 

JSR 

$A79A 

Wijs naar volgende filebuffer 

A31E- 

FO 

10 


BEQ 

$A330 

Geen filenaambuffers meer, dan exit! 

A320- 

20 

AF 

A7 

JSR 

$A7AF 

EXEC's ? 

A323- 

FO 

F6 


BEQ 

$A31B 

3a! 

A325- 

20 

AA 

A7 

JSR 

$A7AA 

Wordt hij niet gebruikt ? 

A328- 

FO 

FI 


BEQ 

$A31B 

T o c h w e 1 ! 

A32A- 

20 

FC 

A2 

JSR 

$A2FC 

Want anders CLOSE en schoonmaken. 

A32D- 

4C 

16 

A3 

JMP 

$A316 

Nu nog een keer overdoen. 

A330- 

60 



RTS 


*-die kun je maar nodig hebben! 

A331- 

A9 

09 


LDA 

#$09 

BSAVE afhandeling ******* 

A333- 

2D 

65 

AA 

AND 

$AA65 

Eerst moet worden uitgezocht of de 

A336- 

C9 

09 


CMP 

#$09 

A en L parameter aanwezig is. 

A338- 

FO 

03 


BEQ 

$A33D 

Anders zal een foutmelding 

A33A- 

4C 

00 

AO 

JMP 

$A000 

volgen: "SYNTAX ERROR" 

A33D- 

A9 

04 


LDA 

#$04 

Open file en 

A33F- 

20 

D5 

A3 

JSR 

$A3D5 

bekijk of het een Binary file is. 

A342- 

AD 

73 

AA 

LDA 

$AA73 

Nu alle adres parameters opzetten. 

A345- 

AC 

72 

AA 

LDY 

$AA72 


A348- 

20 

EO 

A3 

JSR 

$A3E0 

Eerst de A afwerken 

A34B- 

AD 

6D 

AA 

LDA 

$AA6D 


A34E- 

AC 

6C 

AA 

LDY 

$AA6C 


A351- 

20 

EO 

A3 

JSR 

$A3E0 

Vervolgens de L 

A354- 

AD 

73 

AA 

LDA 

$AA73 


A357- 

AC 

72 

AA 

LDY 

$AA72 


A35A- 

4C 

FF 

A3 

JMP 

$A3FF 

Nu wordt de file getransporteerd. 

A35D- 

20 

A8 

A2 

JSR 

$A2A8 

BLOAD afhandeling ******* 

A360- 

A9 

7F 


LDA 

#$7F 

Is het een Binary file? 

A362- 

2D 

C2 

B5 

AND 

$B5C2 

Eerst controleren 

A365- 

C9 

04 


CMP 

#$04 

anders volgt een foutmelding. 

A367- 

FO 

03 


BEQ 

$A36C 


A369- 

4C 

DO 

A6 

JMP 

$A6D0 

"FILE TYPE MISMATCH" 

A36C- 

A9 

04 


LDA 

#$04 

Open de "B" file 

A36E- 

20 

D5 

A3 

JSR 

$A3D5 

en test het file type. 

A371- 

20 

7A 

A4 

JSR 

$A47A 

Nu wordt de adreswaarde 

A374- 

AA 



TAX 


en de lengte van de file 

A375- 

AD 

65 

AA 

LDA 

$AA65 

af gehandeld. 

A378- 

29 

01 


AND 

#$01 


A37A- 

DO 

06 


BNE 

$A382 


A37C- 

BE 

72 

AA 

STX 

$AA72 

Adres 

A37F- 

8C 

73 

AA 

STY 

$AA73 

Adres +1 

A382- 

20 

7A 

A4 

JSR 

$A47A 


A385- 

AE 

72 

AA 

LDX 

$AA72 


A388- 

AC 

73 

AA 

LDY 

$AA73 


A38B- 

4C 

71 

A4 

JMP 

$A471 

Lees de hoeveelheid bytes af. 

A38E- 

20 

5D 

A3 

JSR 

$A35D 

BRUN commando afhandeling ****** 

A391- 

20 

51 

A8 

JSR 

$A851 

Eerst Bload en dan pointers opzetten. 

A394- 

6C 

72 

AA 

JMP 

($AA72) 

Exit met jump naar A waarde programma 

A397- 

AD 

B6 

AA 

LDA 

$AAB6 

SAVE commando afhandeling ******* 

A39A- 

FO 

20 


BEQ 

$A3BC 

Stel Basic type vast. Is het Integer? 

A39C- 

A5 

D6 


LDA 

$D6 

+Is het programma beveiligd?! 

A39E- 

10 

03 


BPL 

$A3A3 

Anders volgt "fout"-melding: 

A3A0- 

4C 

CC 

A6 

JMP 

$A6CC 

"PROGRAM TOO LARGE" 


9-51 




A3A3- 

A9 

02 


LDA 

#$02 

Is alles echter OK, da^n 

A3A5- 

20 

D5 

A3 

JSR 

$A3D5 

openen we de file en testen we "A" type 

A3A8- 

38 



SEC 


A3A9- 

A5 

AF 


LDA 

$AF 

Bereken nu het einde van het programma 

A3AB- 

E5 

67 


SBC 

$67 

A3AD- 

A8 



TAY 



A3AE- 

A5 

BO 


LDA 

$B0 


A3B0- 

E5 

68 


SBC 

$68 

Nu weten we de omvang! 

A3B2- 

20 

EO 

A3 

JSR 

$A3E0 

En houdt de administratie ervan bij. 

A3B5- 

A5 

68 


LDA 

$68 

A3B7- 

A4 

67 


LDY 

$67 


A3B9- 

4C 

FF 

A3 

JMP 

$A3FF 

Exit door LOMEM vast te leggen. 

A3BC- 

A9 

01 


LDA 

#$01 

Open en test file type, indien 

A3BE- 

20 

D5 

A3 

JSR 

$A3D5 

Integer Basic wordt verwacht. 

A3C1- 

38 



SEC 



A3C2- 

A5 

4C 


LDA 

$4C 

Bereken HIMEM 

A3C4- 

E5 

CA 


SBC 

$CA 

en de start van het programma 

A3C6- 

A8 



TAY 


A3C7- 

A5 

4D 


LDA 

$4D 


A3C9- 

E5 

CB 


SBC 

$CB 

Zodat de omvang daaruit volgt. 

A3CB- 

20 

EO 

A3 

JSR 

$A3E0 

Schrijf 2 bytes naar de file 

A3CE- 

A5 

CB 


LDA 

$CB 


A3D0- 

A4 

CA 


LDY 

$CA 


A3D2- 

4C 

FF 

A3 

JMP 

$A3FF 

Nu wordt het programma weggeschreven. 

A3D5- 

8D 

C2 

B5 

STA 

$B5C2 

OPEN EN TEST Subroutine ***** 

A3D8- 

48 



PHA 


Zet gewenst filetype in de parmlist 

A3D9- 

20 

A8 

A2 

JSR 

$A2A8 

Open de file 

A3DC- 

68 



PLA 



A3DD- 

4C 

C4 

A7 

JMP 

$A7C4 

Controleer het filetype 

A3E0- 

8C 

Cl 

B5 

STY 

$B5C1 

Schrijf 2 bytes waarde naar file 

A3E3- 

8C 

C3 

B5 

STY 

$B5C3 

Data omvang in f.m. parmlist 

A3E6- 

8D 

C2 

B5 

STA 

$B5C2 

A3E9- 

A3EB- 

A9 

8D 

04 

BB 

B5 

LDA 

STA 

#$04 

$B5BB 

§8$r W ?4S e b?eg 0de 

A3EE- 

A9 

01 


LDA 

#$01 


A3F0- 

8D 

BC 

B5 

STA 

$B5BC 


A3F3- 

20 

A8 

A6 

JSR 

$A6AB 

file manager driver werkt byte af 

A3F6- 

AD 

C2 

B5 

LDA 

$B5C2 

Nu herhaling 

A3F9- 

8D 

C3 

B5 

STA 

$B5C3 

voor tweede byte 

A3FC- 

4C 

A8 

A6 

JMP 

$A6A8 

file manager driver werkt byte af. 

A3FF- 

8C 

C3 

B5 

STY 

$B5C3 

Read/Write range van bytes. ****** 

A402- 

8D 

C4 

B5 

STA 

$B5C4 

Set de rangeadressen in f.m. parmlist 

A405- 

A9 

02 


LDA 

#$02 


A407- 

4C 

86 

B6 

JMP 

$B686 

Verify patch - data goed geschreven? 

A40A- 

20 

A8 

A6 

JSR 

$A6A8 

file manager driver 

A40D- 

4C 

EA 

A2 

JMP 

$A2EA 

Close de handeling 

A410- 

4C 

DO 

A6 

JMP 

$A6D0 

"FILE TYPE MISMATCH"! 

A413- 

20 

16 

A3 

JSR 

$A316 

LOAD commando afhandeling ******* 

A416- 

20 

A8 

A2 

JSR 

$A2A8 

Open de betreffende file 

A419- 

A9 

23 


LDA 

#$23 

Is het een "A" of "I" type ? ROM/RAM? 

A41B- 

2D 

C2 

B5 

AND 

$B5C2 

A41E- 

F0 

FO 


BEQ 

$A410 

Hupsakee, foutmelding! 

A420- 

8D 

C2 

B5 

STA 

$B5C2 

Filetype ligt vast 

A423- 

AD 

B6 

AA 

LDA 

$AAB6 

Maar welk Basic dialekt is aktief? 

A426- 

FO 

28 


BEQ 

$A450 

Als het Integer is, dan A450 

A428- 

A9 

02 


LDA 

#$02 

A42A- 

20 

B1 

A4 

JSR 

$A4B1 

Het wordt Applesoft, hopelijk aanwezig! 

A42D- 

20 

7A 

A4 

JSR 

$A47A 

Lengte van het programma 

A430- 

18 



CLC 


Nu gaan we alle pointers verzorgen 

A431- 

65 

67 


ADC 

$67 

Vergelijking LOMEM met 

A433- 

AA 



TAX 


HIMEM, om te zien of programma niet 

A434- 

98 



TYA 


te lang is. 
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A435- 

65 

68 


ADC 

$68 


A437- 

C5 

74 


CMP 

$74 


A439- 

BO 

70 


BCS 

$A4AB 

Zie je wel, "PROGRAM TOO LARGE"// 

A43B- 

85 

BO 


STA 

$B0 


A43D- 

85 

6A 


STA 

$6A 

Set programma pointers 

A43F- 

86 

AF 


STX 

$AF 

A441- 

86 

69 


STX 

$69 


A443- 

A6 

67 


LDX 

$67 


A445- 

A4 

68 


LDY 

$68 


A447- 

20 

71 

A4 

JSR 

$A471 

Read range van bytes 

A44A- 

20 

51 

A8 

JSR 

$A851 

reset de DOS pointers 

A44D- 

6C 

60 

9D 

JMP 

($9D60) 

en ga naar conversie routine 

A450- 

A9 

01 


LDA 

#$01 

LOAD INTEGER programma ******** 

A452- 

20 

B1 

A4 

JSR 

$A4B1 

kies het Integer dialekt 

A455- 

20 

7A 

A4 

JSR 

$A47A 

Lees de eerste 2 bytes van programma 

A458- 

38 



SEC 


A459- 

A5 

4C 


LDA 

$4C 

Bepaal de omvang 

A45B- 

ED 

60 

AA 

SBC 

$AA60 

door HIMEM-Proglengte 

A45E- 

AA 



TAX 


A45F- 

A5 

4D 


LDA 

$4D 


A461- 

ED 

61 

AA 

SBC 

$AA61 

Past het allemaal ? 

A464- 

90 

45 


BCC 

$A4AB 

"PROGRAM TOO LARGE" 

A466- 

A8 



TAY 



A467- 

C4 

4B 


CPY 

$4B 

Bekijk LOMEM 

A469- 

90 

40 


BCC 

$A4AB 

"PROGRAM TOO LARGE" 

A46B- 

FO 

3E 


BEQ 

$A4AB 

Minder dan LOMEM, dan ook goed tout! 

A46D- 

84 

CB 


STY 

$CB 

Indien alles goed, dan setten 

A46F- 

86 

CA 


STX 

$CA 

we de programmastart. 

A471- 

8E 

C3 

B5 

STX 

$B5C3 

Lees/Schrijf bepaalde omvang bytes 

A474- 

8C 

C4 

B5 

STY 

$B5C4 

A477- 

4C 

OA 

A4 

JMP 

$A40A 

naar file manager driver 

A47A- 

AD 

OA 

9D 

LDA 

$9D0A 

Lees 2 bytes uit een file ******* 

A47D- 

8D 

C3 

B5 

STA 

$B5C3 


A480- 

AD 

OB 

9D 

LDA 

$9D0B 


A483- 

8D 

C4 

B5 

STA 

$B5C4 

parmlist gereed maken 

A486- 

A9 

00 


LDA 

#$00 


A488- 

8D 

C2 

B5 

STA 

$B5C2 


A48B- 

A9 

02 


LDA 

#$02 


A48D- 

8D 

Cl 

B5 

STA 

$B5C1 


A490- 

A9 

03 


LDA 

#$03 


A492- 

8D 

BB 

B5 

STA 

$B5BB 


A495- 

A9 

02 


LDA 

#$02 


A497- 

8D 

BC 

B5 

STA 

$B5BC 


A49A- 

20 

A8 

A6 

JSR 

$A6A8 

Call file manager driver. 

A49D- 

AD 

61 

AA 

LDA 

$AA61 


A4A0- 

8D 

C2 

B5 

STA 

$B5C2 

Zet de omvang, die werd berekend 

A4A3- 

A8 



TAY 


in parmlist. 

A4A4- 

AD 

60 

AA 

LDA 

$AA60 


A4A7- 

8D 

Cl 

B5 

STA 

$B5C1 


A4AA- 

60 



RTS 


— 

A4AB- 

20 

EA 

A2 

JSR 

$A2EA 

CLOSE file 

A4AE- 

4C 

CC 

A6 

JMP 

$A6CC 

en print "PROGRAM TOO LARGE" 

A4B1- 

CD 

C2 

B5 

CMP 

$B5C2 

BASIC keuze subroutine ******** 

A4B4- 

FO 

1A 


BEQ 

$A4D0 

Klopt het BASIC dialekt, dan klaar 

A4B6- 

AE 

5F 

AA 

LDX 

$AA5F 

zet de commando index weg voor het 

A4B9- 

8E 

62 

AA 

STX 

$AA62 

geval APPLESOFT gerund moet worden. 

A4BC- 

4A 



LSR 



A4BD- 

FO 

03 


BEQ 

$A4C2 


A4BF- 

4C 

9E 

A5 

JMP 

$A59E 

We kiezen Integer Basic 

A4C2- 

A2 

ID 


LDX 

#$1D 

Nu eerst filenaam veilig stellen, 

A4C4- 

BD 

75 

AA 

LDA 

$AA75,X 

voor het geval er eerst het programma 

A4C7- 

9D 

93 

AA 

STA 

$AA93,X 

"APPLESOFT" gerund moet worden voor 




A4CA- 

CA 

DEX 


status "Applesoft in RAM" 

A4CB- 

10 F7 

BPL 

$A4C4 

Doe "Applesoft" als filenaam 

A4CD- 

4C 7A A5 

JMP 

$A57A 

is weggeschreven. 

A4D0- 

60 

RTS 



A4D1- 

AD B6 AA 

LDA 

$AAB6 

RUN afhandeling ******* 

A4D4- 

FO 03 

BEQ 

$A4D9 

Kies Basic en zet RUN intercept flag 

A4D6- 

8D B7 AA 

STA 

$AAB7 

zo, dat RUN afgehandeld wordt. 

A4D9- 

20 13 A4 

JSR 

$A413 

Ga naar Load 

A4DC- 

20 C8 9F 

JSR 

$9FC8 

Verspring een regel op het scherm 

A4DF- 

20 51 A8 

JSR 

$A851 

Reset de diverse pointers 

A4E2-+ 

6C 58 9D 

JMP 

($9D58) 

RUN startpunt voor vigerend Basic t 

A4E5- 

A5 4A 

LDA 

$4A 

Integer Basic RUN afhandeling 

A4E7- 

85 CC 

STA 

$CC 


A4E9- 

A5 4B 

LDA 

$4B 

Voer een CLR manoeuvre uit. 

A4EB- 

85 CD 

STA 

$CD 


A4ED- 

6C. 56 9D 

JMP 

($9D56) 

Integer CHAIN beginpunt 

A4F0- 

20 16 A4 

JSR 

$A416 

CHAIN commando afhandeling ****** 

A4F3- 

20 C8 9F 

JSR 

$9FC8 

regel verspringen na Load 

A4F6- 

20 51 A8 

JSR 

$A851 

DOS intercept pointers setten 

A4F9- 

6C 56 9D 

JMP 

<$9D56> 

ga naar het beginpunt. 

A4FC- 

20 65 D6 

JSR 

$D665 

APPLESOFT ROM RUN entry point *** 

A4FF- 

85 33 

STA 

$33 

A.S. Chain is maar een Run! 

A501- 

85 D8 

STA 

$D8 

reset Onerr 

A503- 

4C D2 D7 

JMP 

$D7D2 

clear variabelen en naar entry point 

A506- 

20 65 OE 

JSR 

$0E65 

APPLESOFT RAM RUN 

A509- 

85 33 

STA 

$33 

clear variabelen 

A50B- 

85 D8 

STA 

$D8 

reset Onerr 

A50D- 

4C D4 OF 

JMP 

$0FD4 

naar Run entry point 

A510- 

20 26 A5 

JSR 

$A526 

WRITE commando afhandeling ******* 

A513- 

A9 05 

LDA 

#$05 

set write mode 

A515- 

8D 52 AA 

STA 

$AA52 


A518- 

4C 83 9F 

JMP 

$9F83 

Exit DOS. 

A51B- 

20 26 A5 

JSR 

$A526 

READ commando afhandeling ********* 

A51E- 

A9 01 

LDA 

#$01 

set read mode 

A520- 

8D 51 AA 

STA 

$AA51 


A523- 

4C 83 9F 

JMP 

$9F83 

Exit DOS. 

A526- 

20 64 A7 

JSR 

$A764 

Gemeenschappelijke READ/WRITE code** 

A529- 

90 06 

BCC 

$A531 

Open file buffer indien niet open! 

A52B- 

20 A3 A2 

JSR 

$A2A3 


A52E- 

4C 34 A5 

JMP 

$A534 


A531- 

20 4E A7 

JSR 

$A74E 

Copieer file buffer werkruimte naar 

A534- 

AD 65 AA 

LDA 

$AA65 

f.m.; controleer "R" of "B" type 

A537- 

29 06 

AND 

#$06 

indien niet, 

A539- 

FO 13 

BEQ 

$A54E 

exit via Rts 

A53B- 

A2 03 

LDX 

#$03 

Anders moeten de operands 

A53D- 

BD 6E AA 

LDA 

$AA6E,X 

worden weggeschreven in de parmlist 

A540- 

9D BD B5 

STA 

$B5BD,X 


A543- 

CA 

DEX 



A544- 

10 F7 

BPL 

$A53D 


A546- 

A9 OA 

LDA 

#$0A 

Omdat kennelijk "R" of "B" vigeert, 

A548- 

8D BB B5 

STA 

$B5BB 

moet een Position commando worden 

A54B- 

20 A8 A6 

JSR 

$A6A8 

afgehandeld voor read of write! 

A54E- 

60 

RTS 


— 

A54F- 

A9 40 

LDA 

#$40 

INIT commando afhandeling ******* 

A551- 

2D 65 AA 

AND 

$AA65 

Bekijk de "V" parameter. 

A554- 

FO 05 

BEQ 

$A55B 


A556- 

AD 66 AA 

LDA 

$AA66 

"V" ? {>0} 

A559- 

DO 05 

BNE 

$A560 

Anders moeten wij een V 

A55B- 

A9 FE 

LDA 

#$FE 

toekennen - 254. 

A55D- 

8D 66 AA 

STA 

$AA66 


A560- 

AD OD 9D 

LDA 

$9D0D 

Haal het DOS Pagegetal op -$9D/48K 

A563- 

8D BC B5 

STA 

$B5BC 

en berg hem op in het subcodelijstje 


t Aangrijppunt voor 'beveiligingen ' ! 
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A566- 

A9 

OB 


LDA 

#$0B 


A568- 

20 

AA 

A2 

JSR 

$A2AA 

Call file manager voor INIT aktie. 

A56B- 

4C 

97 

A3 

JMP 

$A397 

Save het begroetingsprogramma ("Hello 

A56E- 

A9 

06 


LDA 

#$06 

CATALOG commando afhandeling ******** 

A570- 

20 

AA 

A2 

JSR 

$A2AA 

Verzorg de Catalog opcode 

A573- 

AD 

BF 

B5 

LDA 

$B5BF 

Haal het Volumenummer op 

A576- 

8D 

66 

AA 

STA 

$AA66 

en set nieuwe Volnummer voor verder 

A579- 

60 



RTS 


gebruik. 

A57A- 

A9 

4C 


LDA 

#$4C 

FP commando afhandeling ********* 

A57C- 

20 

B2 

A5 

JSR 

$A5B2 

Set Basic type voor ROM Card 

A57F- 

F0 

2E 


BEQ 

$A5AF 

Gelukt, dan naar Coldstart 

A581- 

A9 

00 


LDA 

#$00 

Set anders Integer Basic 

A583- 

8D 

B6 

AA 

STA 

$AAB6 


A586- 

AO 

IE 


LDY 

#$1E 

en probeer Applesoft in RAM te laden 

A588- 

20 

97 

AO 

JSR 

$A097 

("Applesoft" is een Integer programma 

A5SB- 

A2 

09 


LDX 

#$09 

op de masterdiskette) 

A58D- 

BD 

B7 

AA 

LDA 

$AAB7,X 


A590- 

9D 

74 

AA 

STA 

$AA74,X 


A593- 

v CA 



DEX 


(Als het programma niet op de disk 

A594- 

DO 

F7 


BNE 

$A58D 

voorkomt, dan volgt foutmelding) 

A596- 

A9 

CO 


LDA 

#$C0 


A598- 

8D 

51 

AA 

STA 

$AA51 


A59B- 

4C 

D1 

A4 

JMP 

$A4D1 


A59E- 

A9 

20 


LDA 

#$20 

INT commando afhandeling ******** 

A5A0- 

20 

B2 

A5 

JSR 

$A5B2 

Set Basic type 

A5A3- 

FO 

05 


BEQ 

$A5AA 


A5A5- 

A9 

01 


LDA 

#$01 


A5A7- 

4C 

D2 

A6 

JMP 

$A6D2 

"LANGUAGE NOT AVAILABLE" 

A5AA- 

A9 

00 


LDA 

#$00 


A5AC- 

9D 

B7 

AA 

STA 

$AAB7 


A5AF- 

4C 

84 

9D 

JMP 

$9D84 

Naar Coldstart 

A5B2- 

CD 

00 

EO 

CMP 

$E000 

Set ROM voor gewenst Basic dialekt 

A5B5- 

FO 

OE 


BEQ 

$A5C5 

Integer heeft $20 in A 

A5B7- 

8D 

80 

CO 

STA 

$C080 

Applesoft $4C in A 

A5BA- 

CD 

00 

EO 

CMP 

$E000 

Deze komen voor in $E000 

A5BD- 

FO 

06 


BEQ 

$A5C5 

Is juiste Basic geactiveerd ? 

A5BF- 

8D 

81 

CO 

STA 

$C081 

Probeer opnieuw de ROM's 

A5C2- 

CD 

00 

EO 

CMP 

$E000 

Nog niet juist, dan foutcode. 

A5C5- 

60 



RTS 



A5C6- 

20 

A3 

A2 

JSR 

$A2A3 

EXEC commando afhandeling ******* 

A5C9- 

AD 

4F 

AA 

LDA 

$AA4F 


A5CC- 

8D 

B4 

AA 

STA 

$AAB4 

Copieer file buffer adres 

A5CF- 

AD 

50 

AA 

LDA 

$AA50 


A5D2- 

8D 

B5 

AA 

STA 

$AAB5 


A5D5- 

AD 

75 

AA 

LDA 

$AA75 


A5D8- 

8D 

B3 

AA 

STA 

$AAB3 

Set EXEC flag 

A5DB- 

DO 

OE 


BNE 

$A5EB 

Let op de "R" parameter 

A5DD- 

20 

64 

A7 

JSR 

$A764 

POSITION afhandeling ************ 

A5E0- 

90 

06 


BCC 

$A5E8 

Lokaliseer open file buffer 

A5E2- 

20 

A3 

A2 

JSR 

$A2A3 

of open er een als textfile 

A5E5- 

4C 

EB 

A5 

JMP 

$A5EB 


A5E8- 

20 

4E 

A7 

JSR 

$A74E 

Copieer de pointers in parmlist 

A5EB- 

AD 

65 

AA 

LDA 

$AA65 

Haal opcode op - is het "R" 

A5EE- 

29 

04 


AND 

#$04 

Niet gegeven ? 

A5F0- 

FO 

IB 


BEQ 

$A60D 

Goed zo! 

A5F2- 

AD 

6E 

AA 

LDA 

$AA6E 

Zoek naar de "R"-de record. 

A5F5- 

DO 

08 


BNE 

$A5FF 


A5F7- 

AE 

6F 

AA 

LDX 

$AA6F 


A5FA- 

FO 

11 


BEQ 

$A60D 

Was-ie 0! 

A5FC- 

CE 

6F 

AA 

DEC 

$AA6F 

Verminder "R" met 1 

A5FF- 

CE 

6E 

AA 

DEC 

$AA6E 


A602- 

20 

8C 

A6 

JSR 

$A68C 

Lees file byte voor byte 
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A605- 

FO 

38 


BEQ 

$A63F 

Is het eind bereikt, dan foutmelding! 

A607- 

C9 

8D 


CMP 

#$8D 

Haha, een return. 

A609- 

DO 

F7 


BNE 

♦A602 

Nog een keer. Komt er een $8D? 

A60B- 

FO 

E5 


BEQ 

♦A5F2 

Skip volgende record. 

A60D- 

60 



RTS 


— 

A60E- 

20 

5E 

A6 

JSR 

$A65E 

WRITE 1 Data byte naar de file 

A611- 

BO 

66 


BCS 

$A679 

Basic moet werken. Anders Warmstart. 

A613- 

AD 

5C 

AA 

LDA 

$AA5C 

Handel de parmlist af, zodat er 

A616- 

8D 

C3 

B5 

STA 

$B5C3 

een byte kan worden weggeschreven. 

A619- 

A9 

04 


LDA 

#$04 


A61B- 

8D 

BB 

B5 

STA 

$B5BB 


A61E- 

A9 

01 


LDA 

#$01 


A620- 

8D 

BC 

B5 

STA 

$B5BC 


A623- 

4C 

A8 

A6 

JMP 

$A6A8 

Call file manager en stop 

A626- 

20 

5E 

A6 

JSR 

$A65E 

READ 1 byte uit een file 

A629- 

BO 

4E 


BCS 

$A679 

Basic moet werken. Anders Warmstart. 

A62B- 

A9 

06 


LDA 

#$06 

CSW code 6 (laat prompt weg) 

A62D- 

8D 

52 

AA 

STA 

$AA52 


A630- 

20 

8C 

A6 

JSR 

$A68C 

lees file verder door. 

A633- 

DO 

OF 


BNE 

$A644 

Test of dit een kleine letter is ? 

A635- 

20 

FC 

A2 

JSR 

$A2FC 

EOF - dus Close file 

A638- 

A9 

03 


LDA 

#$03 

Is de statuscode 3 (EXEC)!? 

A63A- 

CD 

52 

AA 

CMP 

$AA52 

Anders komen er problemen... 

A63D- 

FO 

CE 


BEQ 

$A60D 


A63F- 

A9 

05 


LDA 

#$05 


A641- 

4C 

D2 

A6 

JMP 

$A6D2 

"END OF DATA" 

A644- 

C9 

EO 


CMP 

#$E0 

Is het ingelezen karakter lowercase? 

A646- 

90 

02 


BCC 

$A64A 

Dan moet de GETIN monitor routine 

A648- 

29 

7F 


AND 

#$7F 

worden misleid. 

A64A- 

8D 

5C 

AA 

STA 

$AA5C 

Zet het meest significante .bit af. 

A64D- 

AE 

5A 

AA 

LDX 

$AA5A 

Zet het databyte weg. 

A650- 

FO 

09 


BEQ 

$A65B 

Exit DOS 

A652- 

CA 



DEX 


Gebruik de index en zet hi-bit weer 

A653- 

BD 

00 

02 

LDA 

$0200,X 

aan van de data-byte in de line-buffer 

A656- 

09 

80 


ORA 

#$80 

Zo kan het weer als onderkast karakter 

A658- 

9D 

00 

02 

STA 

$0200,X 

worden aangemerkt bij de output. 

A65B- 

4C 

B3 

9F 

JMP 

$9FB3 

Exit DOS. 

A65E- 

48 



PHA 


Is Basic aktief? 

A65F- 

AD 

B6 

AA 

LDA 

$AAB6 

Welk Basic ? 

A662- 

FO 

OE 


BEQ 

$A672 

Integer ? 3a! 

A664- 

A6 

76 


LDX 

$76 

Applesoft - maar op welke manier? 

A666- 

E8 



INX 


Is AS in de immediate mode ? 

A667- 

FO 

OD 


BEQ 

$A676 


A669- 

A6 

33 


LDX 

$33 

Dan moet er een prompt zijn. 

A66B- 

EO 

DD 


CPX 

#$DD 

A66D- 

FO 

07 


BEQ 

$A676 


A66F- 

68 



PLA 


Anders executeert Basic een 

A670- 

18 



CLC 


programma. 

A671- 

60 



RTS 


A672- 

A5 

D9 


LDA 

$D9 

Is de computer met een programma bezig 

A674- 

30 

F9 


BMI 

$A66F 

Is de INT Run mode flag geset ? 

A676- 

68 



PLA 



A677- 

38 



SEC 


Keer dan terug met de goed code. 

A678- 

60 



RTS 



A679- 

20 

FC 

A2 

JSR 

$A2FC 

Close onderhavige file 

A67C- 

20 

5B 

A7 

JSR 

$A75B 


A67F- 

4C 

B3 

9F 

JMP 

$9FB3 

DOS exit 

A682- 

20 

9D 

A6 

JSR 

$A69D 

EXEC leest 1 byte uit file. 

A685- 

20 

4E 

A7 

JSR 

$A74E 

werk parmlist bij. 

A688- 

A9 

03 


LDA 

#$03 

A68A- 

DO 

A1 


BNE 

$A62D 


A68C- 

A9 

03 


LDA 

#$03 

Lees een karakter uit een textfile 


9-56 






A68E- 

8D 

BB 

B5 

STA 

♦B5BB 

Werk parameter lijst bij voor 

A691- 

A9 

01 


LDA 

#♦01 

het lezen van een byte. 

A693- 

8D 

BC 

B5 

STA 

♦B5BC 


A696- 

20 

A8 

A6 

JSR 

♦A6A8 

Call f.m. driver 

A699- 

AD 

C3 

B5 

LDA 

♦B5C3 

Haal de data omvang op 

A69C- 

60 



RTS 


— 

A69D- 

AD 

B5 

AA 

LDA 

♦AAB5 

Set pointers, die verwijzen 

A6A0- 

85 

41 


STA 

♦41 

naar de EXEC buffer 

A6A2- 

AD 

B4 

AA 

LDA 

♦AAB4 


A6A5- 

85 

40 


STA 

♦40 


A6A7- 

60 



RTS 



A6A8- 

20 

06 

AB 

JSR 

♦AB06 

File Manager Driver subroutine ***** 

A6AB- 

90 

16 


BCC 

♦A6C3 

Call file manager zelf en controleer 

A6AD- 

AD 

C5 

B5 

LDA 

♦B5C5 

op fouten. Haal returncode op. 

A6B0- 

C9 

05 


CMP 

#♦05 


A6B2- 

F0 

03 


BEQ 

♦A6B7 


A6B4- 

4C 

5E 

B6 

JMP 

♦B65E 

naar Append patch 

A6B7- 

4C 

92 

B6 

JMP 

♦B692 


A6BA- 

EA 



NOP 


Was de fout niet "End of Data" 

A6BB- 

EA 



NOP 


dan doen we net, of er 0 was 

A6BC- 

EA 



NOP 


gelezen. 

A6BD- 

EA 



NOP 



A6BE- 

A2 

00 


LDX 

#♦00 

Zet 0 in file name field 

A6C0- 

8E 

C3 

B5 

STX 

♦B5C3 

Terug naar aanroepende routine 

A6C3- 

60 



RTS 



A6C4- 

A9 

OB 


LDA 

#♦06 

Code voor "Syntax Error" 

A6C6- 

DO 

OA 


BNE 

♦A6D2 

Voer melding uit. 

A6C8- 

A9 

OC 


LDA 

#♦00 

Code voor "No Buffers Available" 

A6CA- 

DO 

06 


BNE 

♦A6D2 

Voer uit. 

A6CC- 

A9 

OE 


LDA 

#^0E 

Code voor "Program Too Large" 

A6CE- 

DO 

02 


BNE 

♦A6D2 

Voer uit. 

A6D0- 

A9 

OD 


LDA 

#^0D 

Code voor "File Type Mismatch" 

A6D2- 

8D 

5C 

AA 

STA 

♦AA5C 

Foutafhandelings werkroutine ***** 

A6D5- 

20 

E6 

BF 

JSR 

♦BFE6 

Set Warmstart flag en clear status 

A6D8- 

AD 

B6 

AA 

LDA 

♦AAB6 

Welk Basic aktief ? 

A6DB- 

FO 

04 


BEQ 

♦A6E1 

Moet foutmelding nu volgen ? 

A6DD- 

A5 

D8 


LDA 

♦D8 

Is Applesoft Onerr aktief, dan 

A6DF- 

30 

OE 


BMI 

♦A6EF 

naar $A6EF 

A6E1- 

A2 

00 


LDX 

#♦00 

Anders volgt nu een fout¬ 

A6E3- 

20 

02 

A7 

JSR 

♦A702 

melding: $A702 

A6E6- 

AE 

5C 

AA 

LDX 

♦AA5C 

{return bel return} 

A6E9- 

20 

02 

A7 

JSR 

♦A702 

Bestemd voor Integer en AS zonder 

A6EC- 

20 

C8 

9F 

JSR 

♦9FC8 

Onerr conditie. 

A6EF- 

20 

51 

A8 

JSR 

♦A851 

Herstel DOS Intercept pointers 

A6F2- 

20 

5E 

A6 

JSR 

♦A65E 

Is er een Basic programma 

A6F5- 

AE 

5C 

AA 

LDX 

♦AA5C 

onderbroken, geef dan de code 

A6F8- 

A9 

03 


LDA 

#♦03 

door aan de Basic fout 

A6FA- 

BO 

03 


BCS 

♦A6FF 

afhandelingsroutine. 

A6FC- 

6C 

5A 

9D 

JMP 

(♦9D5A) 


A6FF- 

6C 

5E 

9D 

JMP 

(♦9D5E) 

Of doe een Warmstart. 

A702- 

BD 

3F 

AA 

LDA 

♦AA3F,X 

Haal de foutmeldingscode offset op. 

A705- 

AA 



TAX 



A706- 

8E 

63 

AA 

STX 

♦AA63 

Daar komt de foutmelding! 

A709- 

BD 

71 

A9 

LDA 

♦A971,X 

Hij "rolt" naar binnen 

A70C- 

48 



PHA 



A70D- 

09 

80 


ORA 

#♦80 

ep het laatste teken heeft hi-bit aan 

A70F- 

20 

C5 

9F 

JSR 

♦9FC5 

Nu kun je hem zien: COUT 

A712- 

AE 

63 

AA 

LDX 

♦AA63 

Even de index (teller) bijwerken 

A715- 

E8 



INX 


+ 1 

A716- 

68 



PLA 



A717- 

10 

ED 


BPL 

♦A706 

en loop terug; volgend teken. 

A719- 

60 



RTS 


Klaar - 
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A71A- 

AD 

66 

AA 

LDA 

$AA66 

Copieer parameters naar f.m. parmlist *** 

A71D- 

8D 

BF 

B5 

STA 

$B5BF 

volume 

A720- 

AD 

68 

AA 

LDA 

$AA68 


A723- 

8D 

CO 

B5 

STA 

$B5C0 

drive 

A726- 

AD 

6A 

AA 

LDA 

$AA6A 


A729- 

8D 

Cl 

B5 

STA 

$B5C1 

slot 

A72C- 

AD 

06 

9D 

LDA 

$9D06 


A72F- 

8D 

C3 

B5 

STA 

♦B5C3 

adres primaire filenaam buffer 

A732- 

AD 

07 

9D 

LDA 

$9D07 


A735- 

8D 

C4 

B5 

STA 

$B5C4 

adres primaire filenaam buffer+1 

A738- 

A5 

40 


LDA 

$40 


A73A- 

8D 

4F 

AA 

STA 

$AA4F 

adres filebuffer 

A73D- 

A5 

41 


LDA 

$41 


A73F- 

8D 

50 

AA 

STA 

$AA50 

adres filebuffer+1 

A742- 

60 



RTS 



A743- 

AO 

ID 


LDY 

#$1D 

Copieer filenaam naar buffer *** 

A745- 

B9 

75 

AA 

LDA 

$AA75, 

Y 

A748- 

91 

40 


STA 

($40), 

V copieer naam in juiste field 

A74A- 

88 



DEY 



A74B- 

10 

F8 


BPL 

$A745 


A74D- 

60 



RTS 



A74E- 

AO 

IE 


LDY 

#$1E 

copieer buffer pointers naar parmlist 

A750- 

B1 

40 


LDA 

($40), 

Y uit file manager werkruimte. 

A752- 

99 

A9 

B5 

STA 

$B5A9, 

Y Track/sector List buffer pointer 

A755- 

C8 



I NY 


Data sector buffer adres 

A756- 

CO 

26 


CPY 

#$26 

Volgende filebuffer linkadres 

A758- 

DO 

F6 


BNE 

$A750 


A75A- 

60 



RTS 



A75B- 

AO 

00 


LDY 

#$00 

Reset Status 0 en set Warmstart *** 

A75D- 

BC 

51 

AA 

STY 

$AA51 


A760- 

8C 

52 

AA 

STY 

$AA52 


A763- 

60 



RTS 



A764- 

A9 

00 


LDA 

#$00 

Lokaliseer geschikte file buffer *** 

A766- 

85 

45 


STA 

$45 

Veronderstel 0 buffers vrij. 

A768- 

20 

92 

A7 

JSR 

$A792 

Controleer lste file buffer 

A76B- 

4C 

73 

A7 

JMP 

$A773 

en kijk of hij beschikbaar is. 

A76E- 

20 

9A 

A7 

JSR 

$A79A 

Laat $40-41 verwijzen naar volgende 

A771- 

FO 

ID 


BEQ 

$A790 

buffer in de reeks. Geen in gebruik? 

A773- 

20 

AA 

A7 

JSR 

$A7AA 

Is er een buffer, controleer dan 

A776- 

DO 

OA 


BNE 

$A782 

lste byte file naam field. 

A778- 

A5 

40 


LDA 

$40 

Indien 0 zet file naam adres weg 

A77A- 

85 

44 


STA 

$44 

in $44 

A77C- 

A5 

41 


LDA 

$41 


A77E- 

85 

45 


STA 

$45 

en $45. 

A780- 

DO 

EC 


BNE 

$A76E 

Volgende buffer - branch altijd! 

A782- 

AO 

ID 


LDY 

#$1D 

Vergelijk de filenamen 

A784- 

B1 

40 


LDA 

($40), 

Y 

A786- 

D9 

75 

AA 

CMP 

$AA75, 

Y 

A7B9- 

DO 

E3 


BNE 

$A76E 

Niet gelijk, dan volgende buffer. 

A78B- 

88 



DEY 



A78C- 

10 

F6 


BPL 

$A784 

Loop terug voor verdere controle. 

A78E- 

18 



CLC 


Return met file open code. 

A78F- 

60 



RTS 


— 

A790- 

38 



SEC 


Niet in gebruik. 

A791- 

60 



RTS 


— 

A792- 

AD 

00 

9D 

LDA 

$9D00 

$40-41 gaat verwijzen naar 

A795- 

AE 

01 

9D 

LDX 

$9D01 

eerste file buffer in reeks. 

A798- 

DO 

OA 


BNE 

$A7A4 


A79A- 

AO 

25 


LDY 

#$25 

$40-41 gaat verwijzen naar 

A79C- 

B1 

40 


LDA 

($40), 

Y volgende file buffer in reeks. 

A79E- 

FO 

09 


BEQ 

$A7A9 


A7A0- 

AA 



TAX 
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A7A1- 

88 


DEY 



A7A2- 

B1 

40 

LDA 

($40),Y 


A7A4- 

86 

41 

STX 

$41 

Adressen verzorgd. 

A7A6- 

85 

40 

STA 

$40 


A7A8- 

8A 


TXA 



A7A9- 

60 


RTS 



A7AA- 

AO 

00 

LDY 

#$00 

Haal eerste byte uit 

A7AC- 

B1 

40 

LDA 

($40),Y 

file naam buffer op en 

A7AE- 

60 


RTS 


zet hem in de buffer. 

A7AF- 

AD 

<r 

<r 

n 

CQ 

LDA 

$AAB3 

Wordt die buffer gebruikt 

A7B2- 

FO 

OE 

BEQ 

$A7C2 

voor een EXEC status ? Nee ? 

A7B4- 

AD 

B4 AA 

LDA 

$AAB4 

Vergelijk dan de EXEC buffer adressen 

A7B7- 

C5 

40 

CMP 

$40 


A7B9- 

DO 

08 

BNE 

$A7C3 


A7BB- 

AD 

B5 AA 

LDA 

$AAB5 


A7BE- 

C5 

41 

CMP 

$41 

met de file buffer 

A7C0- 

FO 

01 

BEQ 

$A7C3 

en keer terug met juiste code. 

A7C2- 

CA 


DEX 



A7C3- 

60 


RTS 



A7C4- 

4D 

C2 B5 

EOR 

$B5C2 

Controleer het filetype. 

A7C7- 

FO 

OA 

BEQ 

$A7D3 

OK, dan klaar. 

A7C9- 

29 

7F 

AND 

#$7F 

Zet lock-bit af en test opnieuw. 

A7CB- 

FO 

06 

BEQ 

$A7D3 

OK, dan klaar. 

A7CD- 

20 

EA A2 

JSR 

$A2EA 

Close file en geef 

A7D0- 

4C 

DO A6 

JMP 

$A6D0 

"FILE TYPE MISMATCH" 

A7D3- 

60 


RTS 



A7D4- 

38 


SEC 


Initialiseer file buffer keten. 

A7D5- 

AD 

00 9D 

LDA 

$9D00 

Laat $40-41 naar lste buffer 

A7D8- 

85 

40 

STA 

$40 

verwijzen. 

A7DA- 

AD 

01 9D 

LDA 

$9D01 


A7DD- 

85 

41 

STA 

$41 


A7DF- 

AD 

57 AA 

LDA 

$AA57 

Zet indexteller op 

A7E2- 

8D 

63 AA 

STA 

$AA63 

MAXFILES waarde. 

A7E5- 

AO 

00 

LDY 

#$00 

Zet een 0 in het file naam field 

A7E7- 

98 


TYA 


opdat deze wordt vrijgemaakt. 

A7E8- 

91 

40 

STA 

($40),Y 


A7EA- 

AO 

IE 

LDY 

#$1E 

Zet de linkpointers op in buffer, 

A7EC- 

38 


SEC 


zodat ze naar de file verwijzen. 

A7ED- 

A5 

40 

LDA 

$40 


A7EF- 

E9 

2D 

SBC 

#$2D 


A7F1- 

91 

40 

STA 

($40),Y 


A7F3- 

48 


PHA 



A7F4- 

A5 

41 

LDA 

$41 


A7F6- 

E9 

00 

SBC 

#$00 


A7F8- 

C8 


I NY 



A7F9- 

91 

40 

STA 

($40),Y 


A7FB- 

AA 


TAX 


Zet pointer op t.b.v. de 

A7FC- 

CA 


DEX 


Track en Sector List buffer 

A7FD- 

68 


PLA 


-256 bytes van file manager 

A7FE- 

48 


PHA 


werkruimte. 

A7FF- 

C8 


INY 



A800- 

91 

40 

STA 

($40),Y 


A802- 

8A 


TXA 



A803- 

C8 


INY 



A804- 

91 

40 

STA 

($40),Y 


AB06- 

AA 


TAX 


Verzorg linkpointer naar data 

A807- 

CA 


DEX 


sector buffer, weer -256 

A808- 

68 


PLA 


bytes voor eerdergenoemde 

A809- 

48 


PHA 


buffer. 

A80A- 

C8 


INY 



A80B- 

91 

40 

STA 

($40),Y 


A80D- 

C8 


INY 
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A80E- 

8A 


TXA 


A80F- 

91 

40 

STA 

($40),Y 

A811- 

CE 

63 AA 

DEC 

$AA63 Verminder de index-teller 

A814- 

FO 

17 

BEQ 

$A82D Is dit de laatste buffer ? 

A816- 

AA 


TAX 

Anders moeten we weer 

A817- 

68 


PLA 

pointers gaan opzetten. 

A818- 

38 


SEC 


A819- 

E9 

26 

SBC 

#$26 Link komt 38 bytes voor 

A81B- 

C8 


INY 

de data sector buffer. 

A81C- 

91 

40 

STA 

($40),Y 

ABIE- 

48 


PHA 


A81F- 

8A 


TXA 


A820- 

E9 

00 

SBC 

#$00 

A822- 

C8 


INY 


A823- 

91 

40 

STA 

($40),Y 

A825- 

85 

41 

STA 

$41 

AB27- 

68 


PLA 


A828- 

85 

40 

STA 

$40 

A82A- 

4C 

E5 A7 

JMP 

$A7E5 

A82D- 

48 


PHA 

Het is de laatste buffer 

A82E- 

A9 

00 

LDA 

#$00 dus maken we de link 0 

A830- 

C8 


INY 


A831- 

91 

40 

STA 

($40),Y 

A833- 

C8 


INY 


A834- 

91 

40 

STA 

($40),Y 

A836- 

AD 

B6 AA 

LDA 

$AAB6 Welk Basictype is operationeel? 

A839- 

FO 

OB 

BEQ 

$A846 Is het Integer ? 

A83B- 

68 


PLA 


A83C- 

85 

74 

STA 

$74 Set Applesoft HIMEM 

A83E- 

85 

70 

STA 

$70 en String start pointers. 

A840- 

68 


PLA 


A841- 

85 

73 

STA 

$73 

A843- 

•85 

6F 

STA 

$6F 

A845- 

60 


RTS 


A846- 

68 


PLA 


A847- 

85 

4D 

STA 

$4D Set Integer HIMEM 

A849- 

85 

CB 

STA 

$CB en Start van programma pointers 

A84B- 

68 


PLA 


A84C- 

85 

4C 

STA 

$4C 

A84E- 

85 

CA 

STA 

$CA 

A850- 

60 


RTS 


A851- 

t A5 

39 

LDA 

$39 Initialiseer DOS keyboard 

A853- 

CD 

03 9D 

CMP 

$9D03 en video intercept vectors ****** 

A856- 

FO 

12 

BEQ 

$A86A Is het keyboard (KSW) geset ? 

A858- 

8D 

56 AA 

STA 

$AA56 Berg de gevonden vectoren op 

A85B- 

A5 

38 

LDA 

$38 

A85D- 

8D 

55 AA 

STA 

$AA55 

A860- 

AD 

02 9D 

LDA 

$9D02 en vervang ze door DOS’ intercept 

A863- 

85 

38 

STA 

$38 routines. 

A865- 

AD 

03 9D 

LDA 

$9D03 

A868- 

85 

39 

STA 

$39 

A86A- 

A5 

37 

LDA 

$37 Is DOS video (CSW) gezet ? 

AB6C- 

CD 

05 9D 

CMP 

$9D05 

A86F- 

FO 

12 

BEQ 

$A883 OK 

A871- 

8D 

54 AA 

STA 

$AA54 Anders ook deze pointers opbergen 

A874- 

A5 

36 

LDA 

$36 en vervangen. 

A876- 

8D 

53 AA 

STA 

$AA53 

A879- 

AD 

04 9D 

LDA 

$9D04 

A87C- 

85 

36 

STA 

$36 

A87E- 

AD 

05 9D 

LDA 

$9D05 

A881- 

85 

37 

STA 

$37 

A883- 

60 


RTS 



t Aangrijppunt voor "beveiligingen" 




t 
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A884- 

49 

4E 


EOR 

#$4E 

DOS COMMANDO TABEL *************** 

A8S6- 

49 

D4 


EOR 

#*D4 

"INIT" {zie ASCII tabel in Ref 

A888- 

4C 

4F 

41 

JMP 

*414F 

"LOAD" 

A88B- 

C4 

53 


CPV 

$53 


A88D- 

41 

56 


EOR 

($56,X) 

"SAVE" 

A88F- 

C5 

52 


CMP 

$52 


A891- 

55 

CE 


EOR 

$CE,X 

"RUN" 

A893- 

43 



??? 



A894- 

48 



PHA 



A895- 

41 

49 


EOR 

($49,X) 

"CHAIN" 

A897- 

CE 

44 

45 

DEC 

$4544 


A89A- 

4C 

45 

54 

JMP 

$5445 

"DELETE" 

A89D- 

C5 

4C 


CMP 

$4C 

"LOCK" 

A89F- 

4F 



??? 



A8A0- 

43 



??? 



A8A1- 

CB 



??? 



A8A2- 

55 

4E 


EOR 

$4E, X 


A8A4- 

4C 

4F 

43 

JMP 

$434F 


A8A7- 

CB 



??? 


"UNLOCK" 

A8A8- 

43 



??? 



A8A9- 

4C 

4F 

53 

JMP 

$534F 

"CLOSE" 

A8AC- 

C5 

52 


CMP 

$52 


A8AE- 

45 

41 


EOR 

$41 

"READ" 

A8B0- 

C4 

45 


CPY 

$45 


A8B2- 

58 



CL I 



A8B3- 

45 

C3 


EOR 

$C3 

"EXEC" 

A8B5- 

57 



??? 



A8B6- 

52 



??? 



A8B7- 

49 

54 


EOR 

#$54 

"WRITE" 

A8B9- 

C5 

50 


CMP 

$50 


A8BB- 

4F 



??? 



A8BC- 

53 



.??? 



A8BD- 

49 

54 


EOR 

#$54 

"POSITION" 

A8BF- 

49 

4F 


EOR 

#$4F 


A8C1- 

CE 

4F 

50 

DEC 

$504F 

"OPEN" 

A8C4- 

45 

CE 


EOR 

$CE 


A8C6- 

41 

50 


EOR 

($50,X) 

"APPEND" 

A8C8- 

50 

45 


BVC 

$A90F 


A8CA- 

4E 

C4 

52 

LSR 

$52C4 


A8CD- 

45 

4E 


EOR 

$4E 

"RENAME" 

A8CF- 

41 

4D 


EOR 

<$4D,X) 


A8D1- 

C5 

43 


CMP 

$43 


A8D3- 

41 

54 


EOR 

($54,X) 

"CATALOG" 

A8D5- 

41 

4C 


EOR 

($4C,X) 


A8D7- 

4F 



??? 



A8D8- 

C7 



??? 



A8D9- 

4D 

4F 

CE 

EOR 

$CE4F 

"MON" 

A8DC- 

4E 

4F 

4D 

LSR 

$4D4F 

"NOMON" 

A8DF- 

4F 



??? 



A8E0- 

CE 

50 

52 

DEC 

$5250 

"PR//" 

A8E3- 

A3 



??? 



A8E4- 

49 

4E 


EOR 

#$4E 

"IN//" 

A8E6- 

A3 



??? 



A8E7- 

4D 

41 

58 

EOR 

$5841 

"MAXFILES" 

A8EA- 

46 

49 


LSR 

$49 


A8EC- 

4C 

45 

D3 

JMP 

$D345 


A8EF- 

46 

DO 


LSR 

$D0 

"FP" 

A8F1- 

49 

4E 


EOR 

#$4E 


A8F3- 

D4 



??? 


"INT" 

A8F4- 

42 



??? 



A8F5- 

53 



??? 



A8F6- 

41 

56 


EOR 

($56,X) 

"BSAVE" 
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A8F8- 

C5 

42 

CMP 

A8FA- 

4C 

4F 41 

JMP 

A8FD- 

C4 

42 

CPY 

A8FF- 

52 


??? 

A900- 

55 

CE 

EOR 

A902- 

56 

45 

LSR 

A904- 

52 


??? 

A905- 

49 

46 

EOR 

A907- 

D9 

00 21 

CMP 

A90A- 

70 

AO 

BVS 

A90C- 

70 

A1 

BVS 

A90E- 

70 

AO 

BVS 

A910- 

70 

20 

BVS 

A912- 

70 20 

BVS 

A914- 

70 

20 

BVS 

A916- 

70 

20 

BVS 

A918- 

70 

60 

BVS 

A91A- 

00 


BRK 

A91B- 

22 


??? 

A91C- 

06 

20 

ASL 

A91E- 

74 


??? 

A91F- 

22 


??? 

A920- 

06 

22 

ASL 

A922- 

04 


??? 

A923- 

23 


??? 

A924- 

78 


SEI 

A925- 

22 


??? 

A926- 

70 

30 

BVS 

A928- 

70 

40 

BVS 

A92A- 

70 

40 

BVS 

A92C- 

80 


??? 

A92D- 

40 


RTI 

A92E- 

80 


??? 

A92F- 

08 


PHP 

A930- 

00 


BRK 

A931- 

08 


PHP 

A932- 

00 


BRK 

A933- 

04 


??? 

A934- 

00 


BRK 

A935- 

40 


RTI 

A936- 

70 

40 

BVS 

A938- 

00 


BRK 

A939- 

21 

79 

AND 

A93B- 

20 

71 20 

JSR 

A93E- 

71 

20 

ADC 

A940- 

70 

D6 

BVS 

A942- 

C4 

D3 

CPY 

A944- 

CC 

D2 C2 

CPY 

A947- 

Cl 

C3 

CMP 

A949- 

C9 

CF 

CMP 

A94B- 

40 


RTI 

A94C- 

20 

10 08 

JSR 

A94F- 

04 


??? 

A950- 

02 


??? 

A951- 

01 

CO 

ORA 

A953- 

AO 

90 

LDY 

A955- 

00 


BRK 

A956- 

00 


BRK 

A957- 

FE 

00 01 

INC 

A95A- 

00 


BRK 

A95B- 

02 


??? 

A95C- 

00 


BRK 


$42 

$414F "BLOAD" 
$42 

"BRUN" 

$CE, X 

$45,X "VERIFY" 


#$46 

$2100,Y 

$A8AC 

$A8AF 

$A8B0 

$A932 

$A934 

$A936 

$A938 

$A97A 


$20 


$22 


$A958 

$A96A 

$A96C 


$A90A begin keyword command 
tabel. INIT=2170 

L0AD=A070 etc. 

Deze tabel wordt gebruikt, om 
de condities van een DOS commando 
vast te stellen. Het gaat hierbij 
om een 2 bytes code, waarin 16 
conditieflags verscholen gaan. 

BIT 0 = fil enaam optioneel 

1 = geen positionele operand 

2 = filenaam 1 vereist 

3 = filenaam 2 vereist 

4 = slotnummer vereist 

3 = maxfiles vereist 

6 = commando binnen programma 

7 = maak nieuwe file 

8 = CIO conditie 

9 = V 

10 = D 

11 = S 

12 = L 

13 = R 

14 = B 

13 = A parameter optioneel 


$A978 

($79,X) 

$2071 

($20),Y 

$A918 $A941 = "VDSLRBACI0" 

$D3 
$C2D2 
($C3,X) 

#$CF 

Keyword flag bits V=40 
$0810 D=20, S=10, L = 08 

R=04 
B = 02 

($C0,X) A=01, C=C0 

#$90 I=A0, 0=90 

Keyword max. omvang tabel 
in standaard volgorde. 
*0100,X A959= min. aantal drives 1 

A95B= max. aantal drives 2 
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A95D- 

01 

00 


ORA 

(♦00,X) 

A95F- 

07 



??? 


A960- 

00 



BRK 


A961- 

01 

00 


ORA 

(♦00,X) 

A963- 

FF 



??? 


A964- 

7F 



??? 


A965- 

00 



BRK 


A966- 

00 



BRK 


A967- 

FF 



??? 


A968- 

7F 



??? 


A969- 

00 



BRK 


A96A- 

00 



BRK 


A96B- 

FF 



??? 


A96C- 

7F 



??? 


A96D- 

00 



BRK 


A96E- 

00 



BRK 


A96F- 

FF 



??? 


A970- 

FF 



??? 


A971- 

OD 

07 

8D 

ORA 

♦8D07 

A974- 

4C 

41 

4E 

JMP 

♦4E41 

A977- 

47 



??? 


A978- 

55 

41 


EOR 

♦41,X 

A97A- 

47 



??? 


A97B- 

45 

20 


EOR 

♦20 

A97D- 

4E 

4F 

54 

LSR 

♦544F 

A980- 

20 

41 

56 

JSR 

♦5641 

A983- 

41 

49 


EOR 

(♦49,X) 

A985- 

4C 

41 

42 

JMP 

♦4241 

A988- 

4C 

C5 

52 

JMP 

♦52C5 

A98B- 

41 

4E 


EOR 

(♦4E,X) 

A98D- 

47 



??? 


A98E- 

45 

20 


EOR 

♦20 

A990- 

45 

52 


EOR 

♦52 

A992- 

52 



??? 


A993- 

4F 



??? 


A994- 

D2 



??? 


A995- 

57 



??? 


A996- 

52 



??? 


A997- 

49 

54 


EOR 

#♦54 

A999- 

45 

20 


EOR 

♦20 

A99B- 

50 

52 


BVC 

♦A9EF 

A99D- 

4F 



??? 


A99E- 

54 



??? 


A99F- 

45 

43 


EOR 

♦43 

A9A1- 

54 



??? 


A9A2- 

45 

C4 


EOR 

♦C4 

A9A4- 

45 

4E 


EOR 

♦4E 

A9A6- 

44 



??? 


A9A7- 

20 

4F 

46 

JSR 

♦464F 

A9AA- 

20 

44 

41 

JSR 

♦4144 

A9AD- 

54 



??? 


A9AE- 

Cl 

46 


CMP 

(♦46,X) 

A9B0- 

49 

4C 


EOR 

#♦40 

A9B2- 

45 

20 


EOR 

♦20 

A9B4- 

4E 

4F 

54 

LSR 

♦544F 

A9B7- 

20 

46 

4F 

JSR 

♦4F46 

A9BA- 

55 

4E 


EOR 

♦4E, X 

A9BC- 

C4 

56 


CPY 

♦56 

A9BE- 

4F 



??? 


A9BF- 

4C 

55 

4D 

JMP 

♦4D55 

A9C2- 

45 

20 


EOR 

♦20 

A9C4- 

4D 

49 

53 

EOR 

♦5349 


Max. slot=7 

Max. L = 32767 of $7FFF 
3e kunt deze tabel aanpassen. 


Foutmeldings teksttabel 0=bel rtn 
LANGUAGE NOT AVAILABLE 


RANGE ERROR 


WRITE PROTECTED 


END OF DATA 


FILE NOT FOUND 


VOLUME MISMATCH 
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A9C7- 

4D 

41 

54 

EOR 

$5441 


A9CA- 

43 



??? 



A9CB- 

C8 



I NY 



A9CC- 

49 

2F 


EOR 

#$2F 

I/O ERROR 

A9CE- 

4F 



??? 



A9CF- 

20 

45 

52 

JSR 

$5245 


A9D2- 

52 



??? 



A9D3- 

4F 



??? 



A9D4- 

D2 



??? 


DISK FULL 

A9D5- 

44 



??? 


A9D6- 

49 

53 


EOR 

#$53 


A9D8- 

4B 



??? 



A9D9- 

20 

46 

55 

JSR 

$5546 


A9DC- 

4C 

CC 

46 

JMP 

$46CC 


A9DF- 

49 

4C 


EOR 

#$4C 


A9E1- 

45 

20 


EOR 

$20 

FILE LOCKED 

A9E3- 

4C 

4F 

43 

JMP 

$434F 


A9E6- 

4B 



??? 



A9E7- 

45 

C4 


EOR 

$C4 


A9E9- 

53 



??? 



A9EA- 

59 

4E 

54 

EOR 

$544E,Y 

SYNTAX ERROR 

A9ED- 

41 

58 


EOR 

($58,X) 


A9EF- 

20 

45 

52 

JSR 

$5245 


A9F2- 

52 



??? 



A9F3- 

4F 



??? 



A9F4- 

D2 



??? 



A9F5- 

4E 

4F 

20 

LSR 

$204F 


A9F8- 

42 



??? 


NO BUFFERS AVAILABLE 

A9F9- 

55 

46 


EOR 

$46, X 


A9FB- 

46 

45 


LSR 

$45 


A9FD- 

52 



??? 



A9FE- 

53 



??? 



A9FF- 

20 

41 

56 

JSR 

$5641 


AA02- 

41 

49 


EOR 

($49,X) 


AA04- 

4C 

41 

42 

JMP 

$4241 


AA07- 

4C 

C5 

46 

JMP 

$46C5 


AAOA- 

49 

4C 


EOR 

#$4C 

FILE TYPE MISMATCH 

AAOC- 

45 

20 


EOR 

$20 


AAOE- 

54 



??? 



AAOF- 

59 

50 

45 

EOR 

$4550,Y 


AA12- 

20 

4D 

49 

JSR 

$494D 


AA15- 

53 



??? 



AA16- 

4D 

41 

54 

EOR 

$5441 


AA19- 

43 



??? 



AA1A- 

C8 



I NY 



AA1B- 

50 

52 


BVC 

$AA6F 

PROGRAM TOO LARGE 

AA1D- 

4F 



??? 



AA1E- 

47 



??? 



AA1F- 

52 



??? 



AA20- 

41 

4D 


EOR 

($4D,X) 


AA22- 

20 

54 

4F 

JSR 

$4F54 


AA25- 

4F 



??? 



AA26- 

20 

4C 

41 

JSR 

$414C 


AA29- 

52 



??? 



AA2A- 

47 



??? 



AA2B- 

C5 

4E 


CMP 

$4E 


AA2D- 

4F 



??? 


NOT DIRECT COMMAND 

AA2E- 

54 



??? 



AA2F- 

20 

44 

49 

JSR 

$4944 


AA32- 

52 



??? 



AA33- 

45 

43 


EOR 

$43 


AA35- 

54 



??? 
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AA36- 

20 

43 

4F 

JSR 

*4F43 


AA39- 

4D 

4D 

41 

EOR 

$414D 


AA3C- 

4E 

C4 

8D 

LSR 

♦8DC4 

$8D = return code 

AA3F- 

00 



BRK 


Index offset tabel voor de 

AA40- 

03 



??? 


foutmeldingen. 1 byte per 

AA41- 

19 

19 

24 

ORA 

$2419,Y 

melding. 

AA44- 

33 



??? 



AA45- 

3E 

4C 

5B 

ROL 

$5B4C,X 


AA4B- 

64 



??? 



AA49- 

6D 

78 

84 

ADC 

$8478 


AA4C- 

98 



TYA 



AA4D- 

AA 



TAX 



AA4E- 

BB 



??? 



AA4F- 

2D 

98 

00 

AND 

$0098 

DOS VARIABELEN TABEL ******* 

AA52- 

02 



??? 


AA4F=file buffer adres - 2 bytes 

AA53- 

02 



??? 


AA51=statusflags 00=warmstart 

AA54- 

Cl 

IB 


CMP 

<$1B,X) 

01=read 80=coldstart 40=ASRAM 

AA56- 

FD 

03 

03 

SBC 

$0303,X 

AA52=D0S CSW State code 

AA59- 

EB 



??? 


AA53=CSW afhandelingsadres 2b 

AA5A- 

01 

00 


ORA 

($01,X) 

AA55=KSW afhandelingsadres 2b 

AA5C- 

AO 

06 


LDY 

#$06 

AA57=Max fi1es 

AA5E- 

00 



BRK 


AA59=S,X,Y,A reg save adres 4b 

AA5F- 

IB 



??? 


AA5D=commando offset 

AA60- 

71 

04 


ADC 

($04),Y 

AA5E=M0N flags C=40,1=20,0=10 

AA62- 

00 



BRK 


AA5F=index laatste commando *2 

AA63- 

00 



BRK 


AA60=lengte load of bload 

AA64- 

01 

00 


ORA 

($00,X) 

AA64=index vigerend keyword 

AA66- 

00 



BRK 


AA65=keyword in instructieregel 

AA67- 

00 



BRK 


AA66=volume nummer 2b 

AA68- 

01 

00 


ORA 

($00,X) 

AA68=drive nummer 2b 

AA6A- 

06 

00 


ASL 

$00 

AA6A=slot nummer 2b 

AA6C- 

00 



BRK 


AA6C=lengte 2b 

AA6D- 

00 



BRK 


AA6E=recordnummer 2b 

AA6E- 

00 



BRK 


AA70 = by te 2b 

AA6F- 

00 



BRK 


AA72=adres 2b 

AA70- 

00 



BRK 


AA74=M0N code 1 byte 

AA71- 

AA72- 

AA73- 

00 

00 

03 



BRK 

BRK 

??? 


*AA60.AA61 AA72.AA73 rtn 
geeft L$ en A$ recent geladen 

AA74- 

00 



BRK 


binary programma. 

AA75- 

00 



BRK 



AA76- 

C5 

CC 


CMP 

$CC 

AA73= primaire file naam buffer 

AA78- 

CC 

CF 

AO 

CRY 

$AOCF 

* Let er eens op, dat de buffer 

AA7B- 

AO 

AO 


LDY 

#$A0 

werd vrijgegeven! 

AA7D- 

AO 

AO 


LDY 

#$A0 

"0ELLO M i.p.v. "HELLO” 

AA7F- 

AO 

AO 


LDY 

#$A0 


AAB1- 

AO 

AO 


LDY 

#$AG 


AA83- 

AO 

AO 


LDY 

#$A0 


AA85- 

AO 

AO 


LDY 

#$A0 


AA87- 

AO 

AO 


LDY 

#$A0 


AA89- 

AO 

AO 


LDY 

#$A0 


AA8B- 

AO 

AO 


LDY 

#$A0 


AA8D- 

AO 

AO 


LDY 

#$A0 


AA8F- 

AO 

AO 


LDY 

#$A0 


AA91- 

AO 

AO 


LDY 

#$A0 


AA93- 

AO 

AO 


LDY 

#$A0 

AA93= secundaire file naam buffer 

AA95- 

AO 

AO 


LDY 

#$A0 

voor RENAME 

AA97- 

AO 

AO 


LDY 

#$A0 


AA99- 

AO 

AO 


LDY 

#$A0 


AA9B- 

AO 

AO 


LDY 

#$A0 


AA9D- 

AO 

AO 


LDY 

#$A0 


AA9F- 

AO 

AO 


LDY 

#$A0 
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AAA1- 

AO 

AO 


LDY 

#$A0 


AAA3- 

AO 

AO 


LDY 

#*A0 


AAA5- 

AO 

AO 


LDY 

#$A0 


AAA7- 

AO 

AO 


LDY 

#*A0 


AAA9- 

AO 

AO 


LDY 

#$A0 


AAAB- 

AO 

AO 


LDY 

#$A0 


AAAD- 

AO 

AO 


LDY 

#$A0 


AAAF- 

AO 

AO 


LDY 

#*A0 


AAB1- 

03 



??? 


AAB1= Maxfiles vervalwaarde (03) 

AAB2- 

84 

00 


STY 

$00 

AAB2= Ctrl-D 

AAB4- 

00 



BRK 


AAB3= EXEC aktief flag 0=niet 

AAB5- 

00 



BRK 


AAB4= EXEC file buffer 2 bytes 

AAB6- 

40 



RTI 


AAB6= Basic flag: 0=integer 

AAB7- 

00 



BRK 


40=AS in ROM, 80=AS RAM 

AAB8- 

Cl 

DO 


CMP 

($D0,X) 

AAB7= RUN intercept flag 

AABA- 

DO 

CC 


BNE 

$AA88 

AAB8= ’’Applesoft” (ASCII) 9b 

AABC- 

C5 

D3 


CMP 

$D3 


AABE- 

CF 



??? 


indien eigen programma 

AABF- 

C6 

D4 


DEC 

$D4 

dan andere naam (AS load) 

AAC1- 

E8 



INX 


AAC1= adres RWTS parmlist $B7E8 

AAC2- 

B7 



??? 



AAC3- 

BB 



??? 


AAC3= adres VTOC sector buffer 

AAC4- 

B3 



??? 



AAC5- 

BB 



??? 


AAC5= adres Directory sector buff 

AAC6- 

B4 

00 


LDY 

$00, X 


AAC8- 

CO 

7E 


CPY 

#$7E 

AAC7= laatste DOSbyte + 1! $C000 

AACA- 

B3 



??? 


AAC9: File manager subroutine tab 

AACB- 

21 

AB 


AND 

($AB,X) 

Bevat opcodesadresbytes van 

AACD- 

05 

AC 


ORA 

$AC 

14 file manager functies 

AACF- 

57 



??? 


b.v. AAD5:adr CATALOG etc. 

AADO- 

AC 

6F 

AC 

LDY 

$AC6F 


AAD3- 

2A 



ROL 



AAD4- 

AD 

97 

AD 

LDA 

$AD97 


AAD7- 

EE 

AC 

F5 

INC 

$F5AC 


AADA- 

AC 

39 

AC 

LDY 

$AC39 


AADD- 

11 

AD 


ORA 

($AD),Y 


AADF- 

8D 

AE 

17 

STA 

$17AE 


AAE2- 

AD 

7E 

B3 

LDA 

$B37E 


AAE5- 

7E 

B3 

89 

ROR 

$89B3,X 

AAE5=READ subcode tabel 

AAE8- 

AC 

95 

AC 

LDY 

$AC95 

AAE7:adr Read 1 byte etc. 

AAEB- 

86 

AC 


STX 

$AC 


AAED- 

92 



??? 



AAEE- 

AC 

7E 

B3 

LDY 

$B37E 


AAF1- 

7E 

B3 

BD 

ROR 

$BDB3,X 

AAFl:Write subcode tabel 

AAF4- 

AC 

C9 

AC 

LDY 

$ACC9 


AAF7- 

BA 



TSX 


AAF5=adr write range 

AAF8- 

AC 

C6 

AC 

LDY 

$ACC6 


AAFB- 

7E 

B3 

EO 

ROR 

$E0B3,X 

AAFD=extern beginpunt voor 

AAFE- 

00 



BRK 


file manager X=0 +wijs 

AAFF- 

FO 

02 


BEQ 

$AB03 

nieuwe file toe, indien 

ABOl- 

A2 

02 


LDX 

#$02 

file niet gevonden. 

AB03- 

8E 

5F 

AA 

STX 

$AA5F 


AB06- 

BA 



TSX 


File Manager Beginpunt ********* 

AB07- 

8E 

9B 

B3 

STX 

$B39B 

Save S register 

ABOA- 

20 

6A 

AE 

JSR 

$AE6A 

herstel file manager werkruimte 

ABOD- 

AD 

BB 

B5 

LDA 

$B5BB 


ABIO- 

C9 

OD 


CMP 

#$0D 

Opcode <=13, dan alles OK 

AB12- 

BO 

OB 


BCS 

$AB1F 

Anders volgt foutmelding 

AB14- 

OA 



ASL 


Opcode gebruiken als index voor 

AB15- 

AA 



TAX 


de f.m. functieroutine. 

AB16- 

BD 

CA 

AA 

LDA 

$AACA,X 

Vector setten. +1 

AB19- 

48 



PHA 
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AB1A- 

BD 

C9 

AA 

LDA 

$AAC9,X 

AB1D- 

48 



PHA 


AB1E- 

60 



RTS 


AB1F- 

4C 

63 

B3 

JMP 

$B363 

AB22- 

20 

28 

AB 

JSR 

$AB28 

AB25- 

4C 

7F 

B3 

JMP 

$B37F 

AB28- 

20 

DC 

AB 

JSR 

*ABDC 

AB2B- 

A9 

01 


LDA 

#$01 

AB2D- 

8D 

E3 

B5 

STA 

$B5E3 

AB30- 

AE 

BE 

B5 

LDX 

$B5BE 

AB33- 

AD 

BD 

B5 

LDA 

$B5BD 

AB36- 

DO 

05 


BNE 

$AB3D 

AB38- 

EO 

00 


CPX 

#$00 

AB3A- 

DO 

01 


BNE 

$AB3D 

AB3C- 

E8 



INX 


AB3D- 

8D 

E8 

B5 

STA 

$B5E8 

AB40- 

8E 

E9 

B5 

STX 

$B5E9 

AB43- 

20 

C9 

B1 

JSR 

$B1C9 

AB46- 

90 

5E 


BCC 

$ABA6 

AB48- 

8E 

9C 

B3 

STX 

$B39C 

AB4B- 

AE 

5F 

AA 

LDX 

$AA5F 

AB4E- 

BD 

09 

A9 

LDA 

$A909,X 

AB51- 

AE 

9C 

B3 

LDX 

$B39C 

AB54- 

4A 



LSR 


AB55- 

BO 

OD 


BCS 

$AB64 

AB57- 

AD 

51 

AA 

LDA 

$AA51 

AB5A- 

C9 

CO 


CMP 

#$C0 

AB5C- 

DO 

03 


BNE 

$AB61 

AB5E- 

4C 

5F 

B3 

JMP 

$B35F 

AB61- 

4C 

73 

B3 

JMP 

$B373 

AB64- 

A9 

00 


LDA 

#$00 

AB66- 

9D 

E8 

B4 

STA 

$B4E8,X 

AB69- 

A9 

01 


LDA 

#$01 

AB6B- 

9D 

E7 

B4 

STA 

$B4E7,X 

AB6E- 

8E 

9C 

B3 

STX 

$B39C 

AB71- 

20 

44 

B2 

JSR 

$B244 

AB74- 

AE 

9C 

B3 

LDX 

$B39C 

AB77- 

9D 

C7 

B4 

STA 

$B4C7,X 

AB7A- 

8D 

D2 

B5 

STA 

$B5D2 

AB7D- 

8D 

D4 

B5 

STA 

$B5D4 

AB80- 

AD 

FI 

B5 

LDA 

$B5F1 

AB83- 

9D 

C6 

B4 

STA 

$B4C6,X 

AB86- 

8D 

D1 

B5 

STA 

$B5D1 

AB89- 

8D 

D3 

B5 

STA 

$B5D3 

AB8C- 

AD 

C2 

B5 

LDA 

$B5C2 

AB8F- 

9D 

C8 

B4 

STA 

$B4C8,X 

AB92- 

20 

37 

BO 

JSR 

$B037 

AB95- 

20 

OC 

AF 

JSR 

$AFOC 

AB98- 

20 

D6 

B7 

JSR 

$B7D6 

AB9B- 

20 

3A 

AF 

JSR 

$AF3A 

AB9E- 

AE 

9C 

B3 

LDX 

$B39C 

ABA1- 

A9 

06 


LDA 

#$06 

ABA3- 

8D 

C5 

B5 

STA 

$B5C5 

ABA6- 

BD 

C6 

B4 

LDA 

$B4C6,X 

ABA9- 

8D 

D1 

B5 

STA 

$B5D1 

ABAC- 

BD 

C7 

B4 

LDA 

$B4C7,X 

ABAF- 

8D 

D2 

B5 

STA 

$B5D2 

ABB2- 

BD 

CS 

B4 

LDA 

$B4C8,X 

ABB5- 

8D 

C2 

B5 

STA 

$B5C2 

ABB8- 

8D 

F6 

B5 

STA 

$B5F6 

ABBB- 

BD 

E7 

B4 

LDA 

$B4E7,X 

ABBE- 

8D 

EE 

B5 

STA 

$B5EE 


Naar "RANGE ERROR" opcode 2 
OPEN Afhandeling ***** 

Naar exit file manager zonder fout. 
-Open routine, die door veel 
file manager functies wordt benut. 
Set sector lengte op 256 bytes 


Indien record lengte 0, dan 
maken we hem 1. 


Zoek filenaam in directory 

indien afwezig, dan entry toewijzen 

Anders door naar ABA6 

Controleer de index tabellen 


Mag er een nieuwe file worden 
aangelegd ? Dan AB64 
Laden we soms AS van de disk ? 
Nee. 

LANGUAGE NOT AVAILABLE 

FILE NOT FOUND 

Set sectorteller op 1 


STX Directory Index 

Wijs sector toe voor T/S List 

Leg T/S List en werkbuffer aan 


Schrijf dir sector terug naar disk 

Kies de T/S List buffer 

Maak hem 0 

Schrijf hem terug - 

Haal de dir index op 

Set opcode foutmelding op 6 

Zet de "File Not Found"-code weg. 

Copieer T/S List in werkbuffer 

Haal T/S op 

Copieer file type in werkbuffer 


Copieer aantal sectoren /file size 
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ABC1- 

BD 

E8 

B4 

LDA 

$B4E8,X 


ABC4- 

8D 

EF 

B5 

STA 

$B5EF 


ABC7- 

8E 

D9 

B5 

STX 

$B5D9 


ABCA- 

A9 

FF 


LDA 

#$FF 

Set End-of-Data pointer op max. 

ABCC- 

8D 

EO 

B5 

STA 

♦B5E0 


ABCF- 

8D 

El 

B5 

STA 

$B5E1 


ABD2- 

AD 

E2 

B3 

LDA 

$B3E2 

Aantal entries in T/S List 

ABD5- 

8D 

DA 

B5 

STA 

$B5DA 


ABD8- 

18 



CLC 


Lees eerste in, indien aanwezig. 

ABD9- 

4C 

5E 

AF 

JMP 

$AF5E 

Lees eerste T/S List sector. 

ABDC- 

A9 

00 


LDA 

#$00 

INIT File Manager Werkruimte **** 

ABDE- 

AA 



TAX 



ABDF- 

9D 

D1 

B5 

STA 

$B5D1,X 


ABE2- 

E8 



INX 



ABE3- 

EO 

2D 


CPX 

#$2D 

Maak 45 bytes grote ruimte vrij. 

ABE5- 

DO 

F8 


BNE 

$ABDF 


ABE7- 

AD 

BF 

B5 

LDA 

$B5BF 

Haal volumenummer op 

ABEA- 

49 

FF 


EOR 

#$FF 

complementeer het 

ABEC- 

8D 

F9 

B5 

STA 

$B5F9 

zet het weg. 

ABEF- 

AD 

CO 

B5 

LDA 

$B5C0 

drive nummer 

ABF2- 

8D 

F8 

B5 

STA 

$B5F8 


ABF5- 

AD 

Cl 

B5 

LDA 

$B5C1 

sio tnummer 

ABF8- 

OA 



ASL 


x2 

ABF9- 

OA 



ASL 


x4 

ABFA- 

OA 



ASL 


x8 

ABFB- 

OA 



ASL 


x 16 

ABFC- 

AA 



TAX 



ABFD- 

8E 

F7 

B5 

STX 

$B5F7 

zet het in X(*16)weg 

ACOO- f 

A9 

11 


LDA 

#$11 

Set directory track 17 + 

AC02- 

8D 

FA 

B5 

STA 

$B5FA 

{"catalog"} 

AC05- 

60 



RTS 



AC06- 

20 

ID 

AF 

JSR 

$AF1D 

CLOSE File afhandeling ******** 

AC09- 

20 

34 

AF 

JSR 

$AF34 

Controleer of data cq. TS buffer 

ACOC- 

20 

C3 

B2 

JSR 

$B2C3 

naar disk geschreven moet worden. 

ACOF- 

A9 

02 


LDA 

#$02 

Maak onbenutte sectors vrij. B203 

AC11- 

2D 

D5 

B5 

AND 

$B5D5 

Kijk of file-omvang is gewijzigd. 

AC14- 

FO 

21 


BEQ 

$AC37 

Als VTOC ongewijzigd blijft, klaar 

AC16- 

20 

F7 

AF 

JSR 

$AFF7 

Anders VTOC doorlezen 

AC19- 

A9 

00 


LDA 

#$00 


AC1B- 

18 



CLC 



AC1C- 

20 

11 

BO 

JSR 

$B011 

Directory sector doorlezen tot 

AC1F- 

38 



SEC 


file is gevonden. Haal index op. 

AC20- 

CE 

D8 

B5 

DEC 

$B5D8 


AC23- 

DO 

F7 


BNE 

$AC1C 

Update de sector teller-index 

AC25- 

AE 

D9 

B5 

LDX 

$B5D9 

zodat de nieuwe file omvang 

AC28- 

AD 

EE 

B5 

LDA 

$B5EE 

blijkt. 

AC2B- 

9D 

E7 

B4 

STA 

$B4E7,X 


AC2E- 

AD 

EF 

B5 

LDA 

$B5EF 


AC31- 

9D 

E8 

B4 

STA 

$B4E8,X 


AC34- 

20 

37 

BO 

JSR 

$B037 

Schrijf de directorysector terug. 

AC37- 

4C 

7F 

B3 

JMP 

$B37F 

Exit file manager. 

AC3A- 

20 

28 

AB 

JSR 

$AB28 

RENAME afhandeling ************ 

AC3D- 

AD 

F6 

B5 

LDA 

$B5F6 

Welk filetype? 

AC40- 

30 

2B 


BMI 

$AC6D 

Is file locked ? 

AC42- 

AD 

BD 

B5 

LDA 

$B5BD 

Nee, dus moet pointer naar 

AC45- 

85 

42 


STA 

$42 

2de file naam wijzen. 

AC47- 

AD 

BE 

B5 

LDA 

$B5BE 


AC4A- 

85 

43 


STA 

$43 


AC4C- 

AE 

9C 

B3 

LDX 

$B39C 


AC4F- 

20 

1C 

B2 

JSR 

$B21C 

Copieer nieuwe naam in directory 

AC52- 

20 

37 

BO 

JSR 

$B037 

Schrijf dir terug naar disk 

AC55- 

4C 

7F 

B3 

JMP 

$B37F 

Exit file manager 


t Oe kunt dit veranderen ("beveiligen") 
Zie ook AE9F, AEC5 & AEC9 ( n / 4 ) 
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AC58- 

AD 

BC 

B5 

LDA 

$B5BC 

AC5B- 

C9 

05 


CMP 

#$05 

AC5D- 

BO 

OB 


BCS 

$AC6A 

AC5F- 

OA 



ASL 


AC60- 

AA 



TAX 


AC61- 

BD 

E6 

<r 

<x 

LDA 

$AAE6,X 

AC64- 

48 



PHA 


AC65- 

BD 

E5 

AA 

LDA 

$AAE5,X 

AC68- 

48 



PHA 


AC69- 

60 



RTS 


AC6A- 

4C 

67 

B3 

JMP 

$B367 

AC6D- 

4C 

7B 

B3 

JMP 

$B37B 

AC70- 

AD 

F6 

B5 

LDA 

$B5F6 

AC73- 

30 

F8 


BMI 

$AC6D 

AC75- 

AD 

BC 

B5 

LDA 

$B5BC 

AC78- 

C9 

05 


CMP 

#$05 

AC7A- 

BO 

EE 


BCS 

$AC6A 

AC7C- 

OA 



ASL 


AC7D- 

AA 



TAX 


AC7E- 

BD 

F2 

AA 

LDA 

$AAF2,X 

AC81- 

48 



PHA 


AC82- 

BD 

FI 

AA 

LDA 

$AAF1,X 

AC85- 

48 



PHA 


AC86- 

60 



RTS 


AC87- 

20 

00 

B3 

JSR 

$B300 

AC8A- 

20 

A8 

AC 

JSR 

$ACA8 

AC8D- 

8D 

C3 

B5 

STA 

$B5C3 

AC90- 

4C 

7F 

B3 

JMP 

$B37F 

AC93- 

20 

00 

B3 

JSR 

$B300 

AC96- 

20 

B5 

B1 

JSR 

$B1B5 

AC99- 

20 

A8 

AC 

JSR 

$ACA8 

AC9C- 

48 



PHA 


AC9D- 

20 

A2 

B1 

JSR 

$B1A2 

ACAO- 

AO 

00 


LDY 

#$00 

ACA2- 

68 



PLA 


ACA3- 

91 

42 


STA 

($42),Y 

ACA5- 

4C 

96 

AC 

JMP 

$AC96 

ACA8- 

20 

B6 

BO 

JSR 

$B0B6 

ACAB- 

BO 

OB 


BCS 

$ACB8 

ACAD- 

B1 

42 


LDA 

($42),Y 

ACAF- 

48 



PHA 


ACBO- 

20 

5B 

B1 

JSR 

$B15B 

ACB3- 

20 

94 

B1 

JSR 

$B194 

ACB6- 

68 



PLA 


ACB7- 

60 



RTS 


ACB8- 

4C 

6F 

B3 

JMP 

$B36F 

ACBB- 

20 

00 

B3 

JSR 

$B300 

ACBE- 

AD 

C3 

B5 

LDA 

$B5C3 

ACC1- 

20 

DA 

AC 

JSR 

$ACDA 

ACC4- 

4C 

7F 

B3 

JMP 

$B37F 

ACC7- 

20 

00 

B3 

JSR 

$B300 

ACCA- 

20 

A2 

B1 

JSR 

$B1A2 

ACCD- 

AO 

00 


LDY 

#$00 

ACCF- 

B1 

42 


LDA 

($42),Y 

ACD1- 

20 

DA 

AC 

JSR 

$ACDA 

ACD4- 

20 

B5 

B1 

JSR 

$B1B5 

ACD7- 

4C 

CA 

AC 

JMP 

$ACCA 

ACDA- 

48 



PHA 


ACDB- 

20 

B6 

BO 

JSR 

$B0B6 

ACDE- 

68 



PLA 


ACDF- 

91 

42 


STA 

($42),Y 

ACE1- 

A9 

40 


LDA 

. #$40 


READ afhandelings routine ****** 
Subcode <5 anders 
volgt een foutmelding 
Gebruik de subcode als index 
voor de functiecodetabel 
t • b . v. Read en 

spring naar de juiste afhandelings 
routine. 


Foutafhandeling 
File was gelocked 

WRITE afhandelingsroutine ****** 

File was gelocked 

Controleer de subcode 

Is die kleiner dan 5 

Is dat zo, dan wordt returncode 3 

Gebruik subcode als index 

voor de write subcodetabel 


Ga naar de juiste afhandelings- 
routine. 


POSITION & READ 1 BYTE ***** 
Lees volgende byte van file 

Exit file manager 
POSITION REEKS VAN BYTES **** 
Lees byte(s) onder vermindering 
index 

Naar positieroutine 


Bufferadres 

Read een data byte **** 

Zijn we aan het einde van de data? 
Lees databyte uit buffer 

Tel bij recnummer byte offset 1 op 
Tel bij positie offset 1 op. 


Naar End of Data melding 
Position & write 1 byte subcode 
afhandeling. 

Schrijf de byte weg 
Exit zonder fout. 

Pos & write reeks van bytes. 
Naar positieroutine 


Schrijf de byte(s) 

Herbereken data-omvang 

Schrijf byte naar een file **** 
Lees de data sector 
Berg de data byte in 
buffer 

Flag buffer t.b.v. write 
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ACE3- 

OD 

D5 

B5 

ORA 

$B5D5 


ACE6- 

8D 

D5 

B5 

STA 

$B5D5 

Zet flag weg 

ACE9- 

20 

5B 

B1 

JSR 

$B15B 

Recordnummer-byte offset +1 

ACEC- 

4C 

94 

B1 

JMP 

*B194 

Exit via positie offset subroutine 

ACEF- 

A9 

80 


LDA 

#$80 

LOCK afhandeling ******* 

ACF1- 

8D 

9E 

B3 

STA 

$B39E 

Set maskering $80 

ACF4- 

DO 

05 


BNE 

$ACFB 


ACF6- 

A9 

00 


LDA 

#$00 

UNLOCK afhandeling ****** 

ACF8- 

8D 

9E 

B3 

STA 

$B39E 

Set maskering $00 

ACFB- 

20 

28 

AB 

JSR 

$AB28 

Waar is de open file ? 

ACFE- 

AE 

9C 

B3 

LDX 

$B39C 

Haal index op 

ADOl- 

BD 

C8 

B4 

LDA 

$B4C8,X 

Werk filetype byte bij (8x,0x) 

AD04- 

29 

7F 


AND 

#$7F 

AD06- 

OD 

9E 

B3 

ORA 

$B39E 


AD09- 

9D 

C8 

B4 

STA 

$B4C8,X 

Zet filetype weg 

ADOC- 

20 

37 

BO 

JSR 

$B037 

Schrijf dir sector weg 

ADOF- 

4C 

7F 

B3 

JMP 

$B37F 

Exit file manager 

AD 12- 

20 

00 

B3 

JSR 

$B300 

POSITION afhandelingsroutine *** 

AD 15- 

4C 

7F 

B3 

JMP 

$B37F 

Call pos routine en exit 

AD 18- 

20 

28 

AB 

JSR 

$AB28 

VERIFY afhandeling ******* 

AD1B- 

20 

B6 

BO 

JSR 

$B0B6 

Read data sector van disk 

AD1E- 

BO 

EF 


BCS 

$ADOF 

Einde van de file, dan klaar 

AD20- 

EE 

E4 

B5 

INC 

$B5E4 

Anders doorgaan 

AD23- 

DO 

F6 


BNE 

$AD1B 

met lezen 

AD25- 

EE 

E5 

B5 

INC 

$B5E5 


AD28- 

4C 

IB 

AD 

JMP 

$AD1B 

Terug naar af 

AD2B- 

20 

28 

AB 

JSR 

$AB28 

DELETE afhandelingsroutine ***** 

AD2E- 

AE 

9C 

B3 

LDX 

$B39C 

Bekijk eerst of file 

AD31- 

BD 

C8 

B4 

LDA 

$B4C8,X 

is gelocked 

AD34- 

10 

03 


BPL 

$AD39 

Nee 

AD36- 

4C 

7B 

B3 

JMP 

$B37B 

Exit met ’’File Locked” code 

AD39- 

AE 

9C 

B3 

LDX 

$B39C 

Copieer de TS-List pointer (sector) 

AD3C- 

BD 

C6 

B4 

LDA 

$B4C6,X 

uit de directory naar de werk- 

AD3F- 

8D 

D1 

B5 

STA 

$B5D1 

ruimte en naar de laatste karakter- 

AD42- 

9D 

E6 

B4 

STA 

$B4E6,X 

byte van de te markeren filenaam 

AD45- 

A9 

FF 


LDA 

#$FF 

Zet $FF op de plaats van de 

AD47- 

9D 

C6 

B4 

STA 

$B4C6,X 

sector-pointer van de TS-List, als 

AD4A- 

BC 

C7 

B4 

LDY 

$B4C7,X 

kenmerk voor te wissen file(naam). 

AD4D- 

8C 

D2 

B5 

STY 

$B5D2 

Door dit terug te zetten, kan de 

AD50- 

20 

37 

BO 

JSR 

$B037 

file weer teruggehaald worden mits 

AD53- 

18 



CLC 


er (nog) niets overheen gesaved is. 

AD54- 

20 

5E 

AF 

JSR 

$AF5E 

Schrijf dir sector terug B037 en 

AD57- 

BO 

2A 


BCS 

$AD83 

haal nieuwe sector op. Of klaar? 

AD59- 

20 

OC 

AF 

JSR 

$AFOC 

T/S List buffer 

AD5C- 

AO 

OC 


LDY 

#$0C 

Index T/S paar 

AD5E- 

8C 

9C 

B3 

STY 

$B39C 

Sla track 0 over 

AD61- 

B1 

42 


LDA 

($42),Y 

Bufferadres 

AD63- 

30 

OB 


BMI 

$AD70 

Volgend paar a.u.b. 

AD65- 

FO 

09 


BEQ 

$AD70 


AD67- 

48 



PHA 


Werk VTOC bij 

AD68- 

C8 



I NY 



AD69- 

B1 

42 


LDA 

($42),Y 


AD6B- 

AB 



TAY 



AD6C- 

68 



PLA 



AD6D- 

20 

89 

AD 

JSR 

$ADB9 

Maak de T/S List sector vrij 

AD70- 

AC 

9C 

B3 

LDY 

$B39C 

Volgend paar 

AD73- 

C8 



INY 


AD74- 

C8 



I NY 



AD75- 

DO 

E7 


BNE 

$AD5E 

Loop terug 

AD77- 

AD 

D3 

B5 

LDA 

$B5D3 

Aan eind T/S List 

AD7A- 

AC 

D4 

B5 

LDY 

. $B5D4 

sector vrijmaken en volgende 

AD7D- 

20 

89 

AD 

JSR 

$AD89 

proberen. 
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AD80- 

38 



SEC 



AD81- 

BO 

D1 


BCS 

$AD54 

Is er nog een, dan afwerken. 

AD83- 

20 

FB 

AF 

JSR 

♦AFFB 

Schrijf VTOC bij. 

AD86- 

4C 

7F 

B3 

JMP 

$B37F 

Exit. 

AD89- 

38 



SEC 


Maak een sector vrij ******* 

AD8A- 

20 

DD 

B2 

JSR 

$B2DD 

VTOC bit map vrijmaken 

AD8D- 

A9 

00 


LDA 

#$00 

Maak de sector toewijzing 

ADBF- 

A2 

05 


LDX 

#$05 

in de werkruimte 0 

AD91- 

9D 

FO 

B5 

STA 

$B5F0,X 


AD94- 

CA 



DEX 



AD95- 

10 

FA 


BPL 

$AD91 


AD97- 

60 



RTS 



AD98- 

20 

DC 

AB 

JSR 

$ABDC 

CATALOG functieafhandeling **** 

AD9B- 

A9 

FF 


LDA 

#$FF 

Maak volumenummer mogelijk 

AD9D- 

8D 

F9 

B5 

STA 

$B5F9 

waarbij $FF=0 complement 

ADAO- 

20 

F7 

AF 

JSR 

$AFF7 

Waar is de catalog /lees VTOC 

ADA3- 

A9 

16 


LDA 

#$16 

Geef 22 regels op het beeldscherm 

ADA5- 

8D 

9D 

B3 

STA 

$B39D 

Bewaar deze parameter 

ADA8- 

20 

2F 

AE 

JSR 

$AE2F 

Sla regel over, 

ADAB- 

20 

2F 

AE 

JSR 

$AE2F 

en nog een. 

ADAE- 

A2 

OB 


LDX 

#$0B 


ADBO- 

BD 

AF 

B3 

LDA 

$B3AF,X 

Print "DISK VOLUME" 

ADB3- 

20 

ED 

FD 

JSR 

$FDED 


ADB6- 

CA 



DEX 



ADB7- 

10 

F7 


BPL 

$ADBO 


ADB9- 

86 

45 


STX 

$45 

Nu het volumenummer 

ADBB- 

AD 

F6 

B7 

LDA 

$B7F6 

wegwerken. 

ADBE- 

85 

44 


STA 

$44 


ADCO- 

20 

42 

AE 

JSR 

$AE42 

Print in decimale notatie volnr. 

ADC3- 

20 

2F 

AE 

JSR 

$AE2F 


ADC6- 

20 

2F 

AE 

JSR 

$AE2F 

Skip 2 regels 

ADC9- 

18 



CLC 



ADCA- 

20 

11 

BO 

JSR 

$B011 

Lees volgende directory sector 

ADCD- 

BO 

5D 


BCS 

$AE2C 

Bekijk of we klaar zijn. 

ADCF- 

A2 

00 


LDX 

#$00 

Maak index 0 

ADD1- 

8E 

9C 

B3 

STX 

$B39C 

Is de trackbyte 0 dan zijn we aan 

ADD4- 

BD 

C6 

B4 

LDA 

$B4C6,X 

het einde van de directory. Is het 

ADD7- 

FO 

53 


BEQ 

$AE2C 

resultaat Minus, dan is de file 

ADD9- 

t 30 

4A 


BMI 

$AE25 

gewist en mag hij niet worden 

ADDB- 

AO 

AO 


LDY 

#$A0 

afgedrukt! t 

ADDD- 

BD 

CB 

B4 

LDA 

$B4C8,X 

Is file "locked"? Filetype 

ADEO- 

10 

02 


BPL 

$ADE4 


ADE2- 

AO 

AA 


LDY 

#$AA 

"*" - j a> het "lock" teken 

ADE4r 

98 



TYA 


Print het. 

ADE5- 

20 

ED 

FD 

JSR 

$FDED 

Gebruik filetype als index voor de 

ADE8- 

BD 

C8 

B4 

LDA 

$B4C8,X 

filenaam tabel en print naam. 

ADEB- 

29 

7F 


AND 

#$7F 

Output filetype 

ADED- 

AO 

07 


LDY 

#$07 


ADEF- 

OA 



ASL 



ADFO- 

OA 



ASL 



ADF1- 

BO 

03 


BCS 

$ADF6 

Naar filenaam tabel voor de 

ADF3- 

88 



DEY 


type omschrijving van de file 

ADF4- 

DO 

FA 


BNE 

$ADFO 


ADF6- 

B9 

A7 

B3 

LDA 

$B3A7,Y 

Daar komt de naam. 

ADF9- 

20 

ED 

FD 

JSR 

$FDED 

Print hem. 

ADFC- 

A9 

AO 


LDA 

#$A0 

Spatie 

ADFE- 

20 

ED 

FD 

JSR 

$FDED 


AEOl- 

BD 

E7 

B4 

LDA 

$B4E7,X 

Nu de file omvang. 

AE04- 

85 

44 


STA 

$44 


AE06- 

BD 

E8 

B4 

LDA 

$B4E8,X 


AE09- 

85 

45 


STA 

$45 


AEOB- 

20 

42 

AE 

JSR 

$AE42 






t ADD9: EA 

EA maakt gedelete files zichtbaar. 
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AEOE- 

A9 

AO 


LDA 

#$A0 

Spatie 

AEIO- 

20 

ED 

FD 

JSR 

♦FDED 

Print hem. 

AE13- 

E8 



INX 



AE14- 

E8 



INX 


Nu de "programma”/file-naam 

AE15- 

E8 



INX 


AE16- 

AO 

ID 


LDY 

#$1D 

Aantal mogelijke karakters 

AE18- 

BD 

C6 

B4 

LDA 

$B4C6,X 

TS track info aflezen 

AE1B- 

20 

ED 

FD 

JSR 

$FDED 

Print naam. 

AE1E- 

E8 



INX 



AE1F- 

88 



DEY 


Hebben we alles ? 

AE20- 

10 

F6 


BPL 

$AE18 

AE22- 

20 

2F 

AE 

JSR 

$AE2F 

Sla nu een regel over 

AE25- 

20 

30 

B2 

JSR 

$B230 

Volgende directory entry 

AE28- 

90 

A7 


BCC 

♦ADD1 

Track nummer 

AE2A- 

BO 

9E 


BCS 

$ADCA 

Lees dir sector 

AE2C- 

4C 

7F 

B3 

JMP 

$B37F 

Exit als we klaar zijn. 

AE2F- 

A9 

8D 


LDA 

#*8D 

Sla een return; nieuwe regel. 

AE31- 

20 

ED 

FD 

JSR 

$FDED 


AE34- 

CE 

9D 

B3 

DEC 

$B39D 

Regelteller -1 

AE37- 

DO 

08 


BNE 

$AE41 

Nog niet 0 

AE39- 

20 

OC 

FD 

JSR 

$FDOC 

Wacht op tikje op toetsenbord 

AE3C- 

A9 

15 


LDA 

#$15 

Stel de teller weer bij. 

AE3E- 

8D 

9D 

B3 

STA 

$B39D 

Nu kunnen we weer 22 regels verder. 

AE41- 

60 



RTS 


Converteer het getal in $44 

AE42- 

AO 

02 


LDY 

#$02 

AE44- 

A9 

00 


LDA 

#$00 

tot een drietal decimale cijfers 

AE46- 

48 



PHA 


(integers) 

AE47- 

A5 

44 


LDA 

$44 


AE49- 

D9 

A4 

B3 

CMP 

$B3A4,Y 


AE4C- 

90 

12 


BCC 

$AE60 


AE4E- 

F9 

A4 

B3 

SBC 

$B3A4,Y 


AE51- 

85 

44 


STA 

$44 


AE53- 

A5 

45 


LDA 

$45 


AE55- 

E9 

00 


SBC 

#$00 


AE57- 

85 

45 


STA 

$45 


AE59- 

68 



PLA 



AE5A- 

69 

00 


ADC 

#$00 


AE5C- 

48 



PHA 



AE5D- 

4C 

47 

AE 

JMP 

$AE47 


AE60- 

68 



PLA 



AE61- 

09 

BO 


ORA 

#$B0 

en print dit getal in de Catalog 

AE63- 

20 

ED 

FD 

JSR 

$FDED 

AE66- 

88 



DEY 



AE67- 

10 

DB 


BPL 

$AE44 


AE69- 

60 



RTS 



AE6A- 

20 

08 

AF 

JSR 

$AF08 

Kies file manager werkruimte 

AE6D- 

AO 

00 


LDY 

#$00 


AE6F- 

8C 

C5 

B5 

STY 

$B5C5 

return code 

AE72- 

B1 

42 


LDA 

($42),Y 

Lees file buffer 

AE74- 

99 

D1 

B5 

STA 

$B5D1,Y 


AE77- 

C8 



I NY 



AE78- 

CO 

2D 


CPY 

#$2D 

Copieer 45 bytes uit de file buffer 

AE7A- 

DO 

F6 


BNE 

$AE72 

terug naar de echte f.m. werkruimte 

AE7C- 

18 



CLC 



AE7D- 

60 



RTS 



AE7E- 

20 

08 

AF 

JSR 

$AF08 

Save f.m. werkruimte in file buffer 

AE81- 

AO 

00 


LDY 

#$00 


AE83- 

B9 

D1 

B5 

LDA 

$B5D1,Y 

Lees werkruimte 

AE86- 

91 

42 


STA 

($42),Y 


AE88- 

C8 



I NY 



AE89- 

CO 

2D 


CPY 

#$2D 

Copieer 45 bytes uit werkruimte 

AE8B- 

DO 

F6 


BNE 

$AE83 

terug naar de file buffer 
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AE8D- 

60 



RTS 


AE8E- 

20 

DC 

AB 

JSR 

$ABDC 

AE91- 

A9 

04 


LDA 

#$04 

AE93- 

20 

58 

BO 

JSR 

$B058 

AE96- 

AD 

F9 

B5 

LDA 

$B5F9 

AE99- 

49 

FF 


EOR 

#$FF 

AE9B- 

8D 

Cl 

B3 

STA 

$B3C1 

AE9E- 

A9 

11 


LDA 

#$11 

AEAO- 

8D 

EB 

B3 

STA 

$B3EB 

AEA3- 

A9 

01 


LDA 

#$01 

AEA5- 

8D 

EC 

B3 

STA 

$B3EC 

AEA8- 

A2 

38 


LDX 

#$38 

AEAA- 

A9 

00 


LDA 

#$00 

AEAC- 

9D 

BB 

B3 

STA 

$B3BB,X 

AEAF- 

E8 



INX 


AEBO- 

DO 

FA 


BNE 

$AEAC 

AEB2- 

A2 

OC 


LDX 

#$0C 

AEB4- 

/ EO BC 


CPX 

#$8C 

AEB6- 

FO 

14 


BEQ 

$AECC 

AEB8- 

AO 

03 


LDY 

#$03 

AEBA- 

B9 

AO 

B3 

LDA 

$B3A0,Y 

AEBD- 

9D 

F3 

B3 

STA 

$B3F3,X 

AECO- 

E8 



INX 


AEC1- 

88 



DEY 


AEC2- 

10 

F6 


BPL 

$AEBA 

AEC4- 

t EO 

44 


CPX 

#$44 

AEC6- 

DO 

EC 


BNE 

$AEB4 

AEC8- 

t A2 

48 


LDX 

#$48 

AECA- 

DO 

E8 


BNE 

$AEB4 

AECC- 

20 

FB 

AF 

JSR 

$AFFB 

AECF- 

A2 

00 


LDX 

#$00 

AED1- 

8A 



TXA 


AED2- 

9D 

BB 

B4 

STA 

$B4BB,X 

AED5- 

E8 



INX 


AED6- 

DO 

FA 


BNE 

$AED2 

AED8- 

20 

45 

BO 

JSR 

$B045 

AEDB- 

t A9 

11 


LDA 

#$11 

AEDD- 

AC 

FO 

B3 

LDY 

$B3F0 

AEEO- 

88 



DEY 


AEE1- 

88 



DEY 


AEE2- 

8D 

EC 

B7 

STA 

$B7EC 

AEE5- 

8D 

BC 

B4 

STA 

$B4BC 

AEE8- 

8C 

BD 

B4 

STY 

$B4BD 

AEEB- 

C8 



I NY 


AEEC- 

8C 

ED 

B7 

STY 

$B7ED 

AEEF- 

A9 

02 


LDA 

#$02 

AEF1- 

20 

58 

BO 

JSR 

$B058 

AEF4- 

AC 

BD 

B4 

LDY 

$B4BD 

AEF7- 

88 



DEY 


AEF8- 

30 

05 


BMI 

$AEFF 

AEFA- 

DO 

EC 


BNE 

$AEEB 

AEFC- 

98 



TYA 


AEFD- 

FO 

E6 


BEQ 

$AEE5 

AEFF- 

20 

C2 

B7 

JSR 

$B7C2 

AF02- 

20 

4A 

B7 

JSR 

$B74A 

AF05- 

4C 

7F 

B3 

JMP 

$B37F 

AF08- 

A2 

00 


LDX 

#$00 

AFOA- 

FO 

06 


BEQ 

$AF12 

AFOC- 

A2 

02 


LDX 

#$02 

AFOE- 

DO 

02 


BNE 

$AF12 

AF10- 

A2 

04 


LDX 

#$04 

AF12- 

BD 

C7 

B5 

LDA 

$B5C7,X 


INIT afhandelingsroutine ***** 
Initialiseer file manager werkruimte 
Set commando code en call RWTS 
Volu menu mmer 
complementeren 

Track die wordt toegewezen 

Toewijzing in opgaande richting 

Markeer de "mogelijke" 56 tracks 


Maak de VTOC bit map 0, d.w.z. 

maak de 35 Apple tracks "in gebruik". 

Sla de drie begin tracks over. 

/ Sommige "beveiligde" diskettes 
hebben 36, zelfs 37 tracks. Wijzig 
$8C in 90 en er zijn 36 tracks. 

Zie voorts B3EF en BEFE! 

Sla track 44/4=11 over! 

Sla track 48/4=12 niet over! 


Initialiseer de directory sector buffer 


Zet directory in track 11 


Schrijf de directory nu naar de 
diskette. 

■* t Het is mogelijk de "catalog" 
naar een andere track te schrijven. 
Wijzig de aangegeven adressen en data. 
Er ontstaat dan een "beveiliqing". 
Vooral wanneer de directory b.v. 
op tracks 36 is! 


Schrijf DOS naar diskette. B7C2/B74A 
Exit zonder foutmelding 

Kies file manager werk buffer 

Kies T/S List sector buffer 

Kies data buffer 


9-73 




AF15- 

85 

42 


STA 

$42 


AF17- 

BD 

C8 

B5 

LDA 

$B5C8,X 

Werk buffer adres+1 

AF1A- 

85 

43 


STA 

$43 


AF1C- 

60 



RTS 


EXIT met $42 en $43 geset. 

AF1D- 

2C 

D5 

B5 

BIT 

$B5D5 

Controle werkbuffer op data, die naar 

AF20- 

70 

01 


BVS 

$AF23 

disk geschreven moet worden. 

AF22- 

60 



RTS 



AF23- 

20 

E4 

AF 

JSR 

$AFE4 

RWTS pointer opzetten 

AF26- 

A9 

02 


LDA 

#$02 


AF28- 

20 

52 

BO 

JSR 

$B052 

Call RWTS voor het schrijven. 

AF2B- 

A9 

BF 


LDA 

#$BF 

Reset flag om aan te geven, dat de 

AF2D- 

2D 

D5 

B5 

AND 

$B5D5 

data sector gereed is. 

AF30- 

8D 

D5 

B5 

STA 

$B5D5 


AF33- 

60 



RTS 



AF34- 

AD 

D5 

B5 

LDA 

$B5D5 

Controle T/S List buffer op data, 

AF37- 

30 

01 


BMI 

$AF3A 

die naar disk moet worden geschreven. 

AF39- 

60 



RTS 



AF3A- 

20 

4B 

AF 

JSR 

$AF4B 

RWTS pointer opzetten 

AF3D- 

A9 

02 


LDA 

#$02 


AF3F- 

20 

52 

BO 

JSR 

$B052 

Call RWTS 

AF42- 

A9 

7F 


LDA 

#$7F 

Reset flag. 

AF44- 

2D 

D5 

B5 

AND 

$B5D5 


AF47- 

8D 

D5 

B5 

STA 

$B5D5 


AF4A- 

60 



RTS 



AF4B- 

AD 

C9 

B5 

LDA 

$B5C9 

IOB gereed maken voor RWTS Call 

AF4E- 

8D 

FO 

B7 

STA 

$B7F0 

Copieer adres T/S List buffer 

AF51- 

AD 

CA 

B5 

LDA 

$B5CA 

in parmlist 

AF54- 

8D 

FI 

B7 

STA 

$B7F1 


AF57- 

AE 

D3 

B5 

LDX 

$B5D3 

T/S van sector 

AF5A- 

AC 

D4 

B5 

LDY 

$B5D4 


AF5D- 

60 



RTS 



AF5E- 

08 



PHP 


Lees de T/S List in file buffer in. 

AF5F- 

20 

34 

AF 

JSR 

$AF34 

C = 0 : eerste T/S sector gewenst 

AF62- 

20 

4B 

AF 

JSR 

$AF4B 

C=1 ; volgende T/S sector gewenst. 

AF65- 

20 

OC 

AF 

JSR 

$AFOC 

Kies de T/S List buffer 

AF68- 

28 



PLP 


Is carry flag '’clear”, dan eerste 

AF69- 

BO 

09 


BCS 

$AF74 

T/S List sector. 

AF6B- 

AE 

D1 

B5 

LDX 

$B5D1 


AF6E- 

AC 

D2 

B5 

LDY 

$B5D2 

Haal T/S Link op 

AF71- 

4C 

B5 

AF 

JMP 

$AFB5 


AF74- 

AO 

01 


LDY 

#$01 

Is carry flag geset, lees dan 

AF76- 

B1 

42 


LDA 

($42),Y 

volgende T/S List sector 

AF78- 

FO 

08 


BEQ 

$AF82 

Is de volgende track 0, dan fout. 

AF7A- 

AA 



TAX 


Is er nog een T/S List aanwezig, 

AF7B- 

C8 



I NY 


dan inlezen. 

AF7C- 

B1 

42 


LDA 

($42),Y 


AF7E- 

A8 



TAY 



AF7F- 

4C 

B5 

AF 

JMP 

$AFB5 

Set RWTS code 

AF82- 

AD 

BB 

B5 

LDA 

$B5BB 

Is de file manager opcode 04 (write), 

AF85- 

C9 

04 


CMP 

#$04 

dan zal geen foutmelding optreden. 

AF87- 

FO 

02 


BEQ 

$AF8B 


AF89- 

38 



SEC 



AF8A- 

60 



RTS 



AF8B- 

20 

44 

B2 

JSR 

$B244 

Wijs een nieuwe sector toe. 

AF8E- 

AO 

02 


LDY 

#$02 

Verwijzing oude T/S List sector 

AF90- 

91 

42 


STA 

($42),Y 

naar nieuwe T/S List track/sector 

AF92- 

48 



PHA 



AF93- 

88 



DEY 



AF94- 

AD 

FI 

B5 

LDA 

$B5F1 


AF97- 

91 

42 


STA 

($42),Y 


AF99- 

48 



PHA 



AF9A- 

20 

3A 

AF 

JSR 

$AF3A 
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AF9D- 

20 

D6 

B7 

JSR 

♦B7D6 

AFAO- 

AO 

05 


LDY 

#♦05 

AFA2- 

AD 

DE 

B5 

LDA 

♦B5DE 

AFA5- 

91 

42 


STA 

(♦42),Y 

AFA7- 

C8 



I NY 


AFA8- 

AD 

DF 

B5 

LDA 

♦B5DF 

AFAB- 

91 

42 


STA 

(♦42),Y 

AFAD- 

68 



PLA 


AFAE- 

AA 



TAX 


AFAF- 

68 



PLA 


AFBO- 

A8 



TAY 


AFB1- 

A9 

02 


LDA 

#♦02 

AFB3- 

DO 

02 


BNE 

♦AFB7 

AFB5- 

A9 

01 


LDA 

#♦01 

AFB7- 

8E 

D3 

B5 

STX 

♦B5D3 

AFBA- 

8C 

D4 

B5 

STY 

♦B5D4 

AFBD- 

20 52 

BO 

JSR 

♦B052 

AFCO- 

AO 

05 


LDY 

#♦05 

AFC2- 

B1 

42 


LDA 

(♦42),Y 

AFC4- 

8D 

DC 

B5 

STA 

♦B5DC 

AFC7- 

18 



CLC 


AFC8- 

6D 

DA 

B5 

ADC 

♦B5DA 

AFCB- 

8D 

DE 

B5 

STA 

♦B5DE 

AFCE- 

C8 



I NY 


AFCF- 

B1 

42 


LDA 

(♦42),Y 

AFD1- 

8D 

DD 

B5 

STA 

♦B5DD 

AFD4- 

6D 

DB 

B5 

ADC 

♦B5DB 

AFD7- 

8D 

DF 

B5 

STA 

♦B5DF 

AFDA- 

18 



CLC 


AFDB- 

60 



RTS 


AFDC- 

20 

E4 

AF 

JSR 

♦AFE4 

AFDF- 

A9 

01 


LDA 

#♦01 

AFE1- 

4C 

52 

BO 

JMP 

♦B052 

AFE4- 

AC 

CB 

B5 

LDY 

♦B5CB 

AFE7- 

AD 

CC 

B5 

LDA 

♦B5CC 

AFEA- 

8C 

FO 

B7 

STY 

♦B7F0 

AFED- 

8D 

FI 

B7 

STA 

♦B7F1 

AFFO- 

AE 

D6 

B5 

LDX 

♦B5D6 

AFF3- 

AC 

D7 

B5 

LDY 

♦B5D7 

AFF6- 

60 



RTS 


AFF7- 

A9 

01 


LDA 

#♦01 

AFF9- 

DO 

02 


BNE 

♦AFFD 

AFFB- 

A9 

02 


LDA 

#♦02 

AFFD- 

AC 

C3 

AA 

LDY 

♦AAC3 

B000- 

8C 

FO 

B7 

STY 

♦B7F0 

B003- 

AC 

C4 

AA 

LDY 

♦AAC4 

B006- 

8C 

FI 

B7 

STY 

♦B7F1 

B009- 

AE 

FA 

B5 

LDX 

♦B5FA 

BOOC- 

AO 

00 


LDY 

#♦00 

BOOE- 

4C 

52 

BO 

JMP 

♦B052 

B011- 

08 



PHP 


BO 12- 

20 

45 

BO 

JSR 

♦B045 

BO 15- 

28 



PLP 


BO 16- 

BO 

08 


BCS 

♦B020 

B018- 

AC 

BD 

B3 

LDY 

♦B3BD 

B01B- 

AE 

BC 

B3 

LDX 

♦B3BC 

BOIE- 

DO 

OA 


BNE 

♦B02A 

B020- 

AE 

BC 

B4 

LDX 

♦B4BC 

B023- 

DO 

02 


BNE 

♦B027 

B025- 

38 



SEC 


B026- 

60 



RTS 


B027- 

AC 

BD 

B4 

LDY 

♦B4BD 


Maak buffer vrij voor nieuwe T/SL 
Bereken het relatieve sectornummer 
van de eerste sector op +5,+6 in 
buffer. 


Set opcode voor het schrijven van 
de nieuwe TS/list 
Is acc=l dan lees oude TSL 
Is acc=2 dan schrijf nieuwe sector 


Bereken het relatieve sectornummer 
van de laatste sector uit de TSL 
en zet die in de werkruimte. 


Lees een data sector 


Copieer adres data sector buffer 
naar RWTS parmlist 


Haal track en sector op. 


Lees of schrijf VTOC buffer 
Lees VTOC 
Schrijf VTOC 

Copieer VTOC sector buffer adres 
in parmlist van RWTS 

Haal track/sectornummer op 
en gebruik sector 0 
Exit via RWTS driver. 

Lees een directory sector ***** 
Code in carry flag l=volgende. 

Lees eerste dir T/S uit VTOC 
met offset +1, +2 

Lees T/S uit dir sector met offset 
+1, +2. Is de track 0 dan fout. 
Carry (foutmelding ) set. 


Lees nu volgende dir sector 
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B02A- 

8E 

97 

B3 

STX 

$B397 


B02D- 

8C 

98 

B3 

STY 

$B398 


B030- 

A9 

01 


LDA 

#$01 


B032- 

20 

52 

BO 

JSR 

$B052 

RWTS driver voor lezen van sector. 

B035- 

18 



CLC 



B036- 

60 



RTS 



B037- 

20 

45 

BO 

JSR 

$B045 

Schrijf directory sector. 

B03A- 

AE 

97 

B3 

LDX 

$B397 

Set buffer pointers. 

B03D- 

AC 

98 

B3 

LDY 

$B398 

B040- 

A9 

02 


LDA 

#$02 


B042- 

4C 

52 

BO 

JMP 

$B052 

RWTS driver voor schrijven sector. 

B045- 

AD 

C5 

AA 

LDA 

$AAC5 

Maak RWTS gereed voor het lezen en 

B04B- 

8D 

FO 

B7 

STA 

$B7F0 

schrijven van de direct, buffer **** 

B04B- 

AD 

C6 

AA 

LDA 

$AAC6 

Copieer buffer adres in parmlist 

B04E- 

8D 

FI 

B7 

STA 

$B7F1 

B051- 

60 



RTS 



B052- 

8E 

EC 

B7 

STX 

$B7EC 

RWTS DRIVER ******* 

B055- 

8C 

ED 

B7 

STY 

$B7ED 

Set T/S in RWTS parmlist 

B058- 

8D 

F4 

B7 

STA 

$B7F4 

Set commando code (lezen, schrijven) 

B05B- 

C9 

02 


CMP 

#$02 

OSD- 

DO 

06 


BNE 

$B065 

Indien aan het schrijven, 

B05F- 

OD 

D5 

B5 

ORA 

$B5D5 

dan juiste flag setten. 

B062- 

8D 

D5 

B5 

STA 

$B5D5 

B065- 

AD 

F9 

B5 

LDA 

$B5F9 

Complementeer het volumenummer 

B06B- 

49 

FF 


EOR 

#$FF 


B06A- 

8D 

EB 

B7 

STA 

$B7EB 


B06D- 

AD 

F7 

B5 

LDA 

$B5F7 

Initialiseer slotnummer xl6 

B070- 

8D 

E9 

B7 

STA 

$B7E9 


B073- 

AD 

F8 

B5 

LDA 

$B5F8 

Init drive nummer 

B076- 

8D 

EA 

B7 

STA 

$B7EA 


B079- 

AD 

E2 

B5 

LDA 

$B5E2 

Init sectorlengte en len+1 

B07C- 

8D 

F2 

B7 

STA 

$B7F2 

B07F- 

AD 

E3 

B5 

LDA 

$B5E3 

B085 Settype ($01) in parmlist 

B082- 

8D 

F3 

B7 

STA 

$B7F3 

B085- 

A9 

01 


LDA 

#$01 


B087- 

8D 

E8 

B7 

STA 

$B7E8 

IOB type 

B08A- 

AC 

Cl 

AA 

LDY 

$AAC1 

Call RWTS met parmlist pointer 

B08D- 

AD 

C2 

AA 

LDA 

$AAC2 

B090- 

20 

B5 

B7 

JSR 

$B7B5 


B093- 

AD 

F6 

B7 

LDA 

$B7F6 

Volumenummer testen en 

B096- 

8D 

BF 

B5 

STA 

$B5BF 

copieren in parmlist 

B099- 

A9 

FF 


LDA 

#$FF 

•B09B- 

8D 

EB 

B7 

STA 

$B7EB 

Verwacht volumenummer 

B09E- 

BO 

01 


BCS 

$BOA 1 

Niet goed, geld weg ... 

BOAO- 

60 



RTS 


B0A1- 

AD 

F5 

B7 

LDA 

$B7F5 

Converteer RWTS foutcode tot 

B0A4- 

AO 

07 


LDY 

#$07 

code, die door de file manager 

B0A6- 

C9 

20 


CMP 

#$20 

kan worden gebruikt. 

B0A8- 

FO 

08 


BEQ 

$B0B2 

07=V0LUME MISMATCH ERROR 

BOAA- 

AO 

04 


LDY 

#$04 

WRITE PROTECTED 

BOAC- 

C9 

10 


CMP 

#$10 


BOAE- 

FO 

02 


BEQ 

$B0B2 


BOBO- 

AO 

08 


LDY 

#$08 

I/O ERROR (alle overige fouten) 

B0B2- 

98 



TYA 


B0B3- 

4C 

85 

B3 

JMP 

$B385 

EXIT via foutafhandeling. 

B0B6- 

AD 

E4 

B5 

LDA 

$B5E4 

Lees volgende data sector (eventueel) 

B0B9- 

CD 

EO 

B5 

CMP 

$B5E0 

Is de geldende file positie binnen 

BOBC- 

DO 

08 


BNE 

$B0C6 

de data sector in het geheugen ? 

BOBE- 

AD 

E5 

B5 

LDA 

$B5E5 

B0C1- 

CD 

El 

B5 

CMP 

$B5E1 


BOC4- 

FO 

66 


BEQ 

$B12C 

Als dat zo is, dan B12C 

B0C6- 

20 

ID 

AF 

JSR 

$AF1D 

Moet sector naar disk worden geschre- 


ven ? 
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B0C9- 

AD 

E5 

B5 

LDA 

$B5E5 

Is de file positie binnen de omvang 

BOCC- 

CD 

DD 

B5 

CMP 

♦B5DD 

van sectoren, die gevonden wordt in 

BOCF- 

90 

1C 


BCC 

♦BOED 

de TSL, die in het geheugen is ? 

BOD1- 

DO 

08 


BNE 

♦BODB 

B0D3- 

AD 

E4 

B5 

LDA 

♦BSE 4 


B0D6- 

CD 

DC 

B5 

CMP 

♦B5DC 


B0D9- 

90 

12 


BCC 

♦BOED 


BODB- 

AD 

E5 

B5 

LDA 

♦B5E5 


BODE- 

CD 

DF 

B5 

CMP 

♦B5DF 


BOE1- 

90 

10 


BCC 

♦B0F3 

Nee. 

B0E3- 

DO 

08 


BNE 

♦BOED 

Lees elke TSL na en zoek de juiste. 

B0E5- 

AD 

E4 

B5 

LDA 

♦B5E4 

B0E8- 

CD 

DE 

B5 

CMP 

♦B5DE 


BOEB- 

90 

06 


BCC 

♦B0F3 


BOED- 

20 

5E 

AF 

JSR 

♦AF5E 

Lees nieuwe TSL in, carry set, of 

BOFO- 

90 

D7 


BCC 

♦B0C9 

cleared. 

B0F2- 

60 



RTS 



B0F3- 

38 



SEC 


Maak entry in deze TSL 

B0F4- 

AD 

E4 

B5 

LDA 

♦B5E4 

Bereken de filepositie. 

B0F7- 

ED 

DC 

B5 

SBC 

♦B5DC 


BOFA- 

OA 



ASL 



BOFB- 

69 

OC 


ADC 

#^0C 


BOFD- 

A8 



TAY 



BOFE- 

20 

OC 

AF 

JSR 

♦AFOC 

Kies de TSL buffer 

B101- 

B1 

42 


LDA 

(♦42),Y 

Welke track voor data sector ? 

B103- 

DO 

OF 


BNE 

♦B114 

Ongelijk 0 ? 

B105- 

AD 

BB 

B5 

LDA 

♦B5BB 

Anders ontstaat een fout, als er 

B108- 

C9 

04 


CMP 

#♦04 

nu niet wordt geschreven. 

BIOA- 

FO 

02 


BEQ 

♦B10E 


BIOC- 

38 



SEC 



BIOD- 

60 



RTS 



BIOE- 

20 

34 

B1 

JSR 

♦B134 

Wijs een nieuwe sector toe, 

Blll- 

4C 

20 

B1 

JMP 

♦B120 

en werk de administratie bij. 

B114- 

8D 

D6 

B5 

STA 

♦B5D6 

Lees data aan de hand van bestaarrde 

B117- 

C8 



I NY 


TSL 

B118- 

B1 

42 


LDA 

(♦42),Y 

, 

B11A- 

8D 

D7 

B5 

STA 

♦B5D7 


B11D- 

20 

DC 

AF 

JSR 

♦AFDC 


B120- 

AD 

E4 

B5 

LDA 

♦B5E4 

Laadt het sectornummer, dat het 

B123- 

8D 

EO 

B5 

STA 

♦B5E0 

laatst werd gelezen op. Zet het 

B126- 

AD 

E5 

B5 

LDA 

♦BSE 5 

weg in werkruimte. 

B129- 

8D 

El 

B5 

STA 

♦B5E1 


B12C- 

20 

10 

AF 

JSR 

♦AF10 

Kies een data buffer 

B12F- 

AC 

E6 

B5 

LDY 

♦B5E6 


B132- 

18 



CLC 



B133- 

60 



RTS 



B134- 

8C 

9D 

B3 

STY 

♦B39D 

Voeg een nieuwe data sector 

B137- 

20 

44 

B2 

JSR 

♦B244 

aan de file toe. 

B1 SA¬ 

AC 

9D 

B3 

LDY 

♦B39D 

Zet TS nummers in TSL entry 

BI 3D- 

C8 



I NY 



B13E- 

91 

42 


STA 

(♦42),Y 


B140- 

8D 

D7 

B5 

STA 

♦B5D7 


B143- 

88 



DEY 



B144- 

AD 

FI 

B5 

LDA 

♦B5F1 


B147- 

91 

42 


STA 

(♦42),Y 


B149- 

8D 

D6 

B5 

STA 

♦B5D6 


B14C- 

20 

10 

AF 

JSR 

♦AF10 

Kies een data buffer en schoon 

B14F- 

20 

D6 

B7 

JSR 

♦B7D6 

die op. 

B152- 

A9 

CO 


LDA 

**C0 

Set flags in de schrijf-mode. 

B154- 

OD 

D5 

B5 

ORA 

♦B5D5 


B157- 

8D 

D5 

B5 

STA 

♦B5D5 


B15A- 

60 



RTS 










B15B- 

AE 

EA 

B5 

LDX 

$B5EA 

B15E- 

8E 

BD 

B5 

STX 

♦B5BD 

B161- 

AE 

EB 

B5 

LDX 

$B5EB 

B164- 

8E 

BE 

B5 

STX 

*B5BE 

B167- 

AE 

EC 

B5 

LDX 

$B5EC 

B16A- 

AC 

ED 

B5 

LDY 

*B5ED 

B16D- 

8E 

BF 

B5 

STX 

$B5BF 

B170- 

8C 

CO 

B5 

STY 

♦B5C0 

B173- 

E8 



INX 


B174- 

DO 

01 


BNE 

♦B177 

B176- 

C8 



I NY 


B177- 

CC 

E9 

B5 

CPY 

♦B5E9 

B17A- 

DO 

11 


BNE 

*B18D 

B17C- 

EC 

E8 

B5 

CPX 

$B5E8 

B17F- 

DO 

OC 


BNE 

$B18D 

B181- 

A2 

00 


LDX 

#$00 

B183- 

AO 

00 


LDY 

#$00 

B185- 

EE 

EA 

B5 

INC 

$B5EA 

B188- 

DO 

03 


BNE 

$B18D 

B1 SA¬ 

EE 

EB 

B5 

INC 

$B5EB 

BI 8D- 

8E 

EC 

B5 

STX 

$B5EC 

B190- 

8C 

ED 

B5 

STY 

$B5ED 

B193- 

60 



RTS 


B194- 

EE 

E6 

B5 

INC 

$B5E6 

B197- 

DO 

08 


BNE 

$B1A1 

B199- 

EE 

E4 

B5 

INC 

$B5E4 

B19C- 

DO 

03 


BNE 

$B1A1 

B19E- 

EE 

E5 

B5 

INC 

$B5E5 

B1A1- 

60 



RTS 


B1A2- 

AC 

C3 

B5 

LDY 

$B5C3 

B1A5- 

AE 

C4 

B5 

LDX 

$B5C4 

B1A8- 

84 

42 


STY 

$42 

B1AA- 

86 

43 


STX 

$43 

B1AC- 

EE 

C3 

B5 

INC 

$B5C3 

B1AF- 

DO 

03 


BNE 

$B1B4 

B1B1- 

EE 

C4 

B5 

INC 

$B5C4 

B1B4- 

60 



RTS 


B1B5- 

AC 

Cl 

B5 

LDY 

$B5C1 

B1B8- 

DO 

08 


BNE 

$B1C2 

B1BA- 

AE 

C2 

B5 

LDX 

$B5C2 

B1BD- 

FO 

07 


BEQ 

$B1C6 

B1BF- 

CE 

C2 

B5 

DEC 

$B5C2 

B1C2- 

CE 

Cl 

B5 

DEC 

$B5C1 

B1C5- 

60 



RTS 


B1C6- 

4C 

7F 

B3 

JMP 

$B37F 

B1C9- 

20 

F7 

AF 

JSR 

$AFF7 

B1CC- 

AD 

C3 

B5 

LDA 

$B5C3 

B1CF- 

85 

42 


STA 

$42 

B1D1- 

AD 

C4 

B5 

LDA 

$B5C4 

B1D4- 

85 

43 


STA 

$43 

B1D6- 

A9 

01 


LDA 

#$01 

B1D8- 

8D 

9D 

B3 

STA 

$B39D 

B1DB- 

A9 

00 


LDA 

#$00 

B1DD- 

8D 

D8 

B5 

STA 

$B5D8 

B1E0- 

18 



CLC 


B1E1- 

EE 

D8 

B5 

INC 

$B5D8 

B1E4- 

20 

11 

BO 

JSR 

$B011 

B1E7- 

BO 

51 


BCS 

$B23A 

B1E9- 

A2 

00 


LDX 

#$00 

B1EB- 

8E 

9C 

B3 

STX 

$B39C 

B1EE- 

BD 

C6 

B4 

LDA 

$B4C6,X 

B1F1- 

FO 

IF 


BEQ 

$B212 


Werk recordnummer bij van de file 


Werk byte offset bij 


Diverse hulproutines voor de 
filebehandeling. 


Is de byte offset gelijk aan de 
recordlengte, dan de byte offset 
op 0 zetten 


File positie offset bijwerken. 


Copieer omvangstabel 

naar $42 
$43 

Increment range adres in parmlist 


Verminder de omvangstabel 


Filetype 
Slot 


Exit file manager 
Zoek filenaam in directory *** 
Lees VTOC en set pointers naar 
filenaam, die wordt gezocht. 


We lezen de directory 2 keer. 


Index VTOC t.b.v. dir track 
Lees de dir sector in. 


Controleer einde directory (0) 
of gewiste file (minus) 
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B1F3- 

30 

22 

BMI 

$B217 

B1F5- 

AO 

00 

LDY 

#$00 

B1F7- 

E8 


INX 


B1F8- 

E8 


INX 


B1F9- 

E8 


INX 


B1FA- 

B1 

42 

LDA 

($42),Y 

B1FC- 

DD 

C6 B4 

CMP 

$B4C6,X 

B1FF- 

DO 

OA 

BNE 

$B20B 

B201- 

C8 


I NY 


B202- 

CO 

IE 

CPY 

#$1E 

B204- 

DO 

F3 

BNE 

$B1F9 

B206- 

AE 

9C B3 

LDX 

$B39C 

B209- 

18 


CLC 


B20A- 

60 


RTS 


B20B- 

20 

30 B2 

JSR 

$B230 

B20E- 

90 

DB 

BCC 

$B1EB 

B210- 

BO 

CF 

BCS 

$B1E1 

B212- 

AC 

9D B3 

LDY 

$B39D 

B215- 

DO 

Cl 

BNE 

$B1D8 

B217- 

AC 

9D B3 

LDY 

$B39D 

B21A- 

DO 

EF 

BNE 

$B20B 

B21C- 

AO 

00 

LDY 

#$00 

B21E- 

E8 


INX 


B21F- 

E8 


INX 


B220- 

E8 


INX 


B221- 

B1 

42 

LDA 

($42),Y 

B223- 

9D 

C6 B4 

STA 

$B4C6,X 

B226- 

C8 


I NY 


B227- 

CO 

IE 

CPY 

#$1E 

B229- 

DO 

F5 

BNE 

$B220 

B22B- 

AE 

9C B3 

LDX 

$B39C 

B22E- 

38 


SEC 


B22F- 

60 


RTS 


B230- 

18 


CLC 


B231- 

AD 

9C B3 

LDA 

$B39C 

B234- 

69 

23 

ADC 

#$23 

B236- 

AA 


TAX 


B237- 

EO 

F5 

CPX 

#$F5 

B239- 

60 


RTS 


B23A- 

A9 

00 

LDA 

#$00 

B23C- 

AC 

9D B3 

LDY 

$B39D 

B23F- 

DO 

97 

BNE 

$B1D8 

B241- 

4C 

77 B3 

JMP 

$B377 

B244- 

AD 

FI B5 

LDA 

$B5F1 

B247- 

FO 

21 

BEQ 

$B26A 

B249- 

CE 

FO B5 

DEC 

$B5F0 

B24C- 

30 

17 

BMI 

$B265 

B24E- 

18 


CLC 


B24F- 

A2 

04 

LDX 

#$04 

B251- 

3E 

FI B5 

ROL 

$B5F1,X 

B254- 

CA 


DEX 


B255- 

DO 

FA 

BNE 

$B251 

B257- 

90 

FO 

BCC 

$B249 

B259- 

EE 

EE B5 

INC 

$B5EE 

B25C- 

DO 

03 

BNE 

$B261 

B25E- 

EE 

EF B5 

INC 

$B5EF 

B261- 

AD 

FO B5 

LDA 

$B5F0 

B264- 

60 


RTS 


B265- 

A9 

00 

LDA 

#$00 

B267- 

8D 

FI B5 

STA 

$B5F1 

B26A- 

A9 

00 

LDA 

#$00 

B26C- 

8D 

9E B3 

STA 

$B39E 


Vergelijk de filenaam met 
de directory entry 


Klopt het allemaal ? 

Dan carry clear en index in X 


Klopt het niet, dan index ophogen 
en terug. 

Einde sector, dan volgende. 

Is dit pass 1 ? 

Is dit pass 1, dan entry overslaan 
of entry toewijzen. 

Copieer filenaam in directory 
entry 


Wij zullen doorgaan ... 
Volgende directory entry 
35 is entry lengte (catalog) 


Tweede pass in afzoeken dir 


Verdorie: "DISK FULL" 

Disk sector toewijzingsroutine **** 
Is er al een track/sector toegewe- 
zen ? Anders zoeken naar plaats. 

Gevonden! Nu de bitmap aanpassen. 


Sector blijkt in gebruik. 
Sector is vrij - filesize +1 


Wordt track niet gebruikt ? 

Reset flag t.b.v. afzoeken lege 
sectoren. 


9-79 








B26F- 

20 F7 

AF 

JSR 

♦AFF7 

RWVTOC 

B272- 

18 


CLC 


Ga naar laatste track, die beschreven 

B273- 

AD EB 

B3 

LDA 

♦B3EB 

werd en voeg de richtings-offset toe 

B276- 

6D EC 

B3 

ADC 

$B3EC 

en bekijk of we nu op track 0 zijn. 

B279- 

F0 09 


BEQ 

$B284 


B27B- 

CD EF 

B3 

CMP 

$B3EF 


B27E- 

90 14 


BCC 

$B294 


B280- 

A9 FF 


LDA 

#$FF 

Zijn we voorbij track 34 ? 

B282- 

DO OA 


BNE 

$B28E 

Dan van richting veranderen. 

B284- 

AD 9E 

B3 

LDA 

♦B39E 


B287- 

DO 37 


BNE 

♦B2C0 

Dan kan de diskette vol zijn. 

B289- 

A9 01 


LDA 

#$01 


B28B- 

8D 9E 

B3 

STA 

$B39E 


B28E- 

SD EC 

B3 

STA 

$B3EC 

Is het dan de 2e keer, dat we op 

B291- 

18 


CLC 


track 0 zijn ? 

B292- 

t 69 11 


ADC 

#$11 

Begin op track 11 en tel af. 

B294- 

8D EB 

B3 

STA 

$B3EB 


B297- 

8D FI 

B5 

STA 

$B5F1 


B29A- 

A8 


TAY 



B29B- 

OA 


ASL 



B29C- 

OA 


ASL 



B29D- 

A8 


TAY 



B29E- 

A2 04 


LDX 

#$04 

Bereken de bitmap index 

B2A0- 

18 


CLC 


(tracknummer *4) 

B2A1- 

B9 F6 

B3 

LDA 

$B3F6,Y 

Copieer de track bit map in de 

B2A4- 

9D FI 

B5 

STA 

$B5F1,X 

werkruimte, om te zien of de 

B2A7- 

FO 06 


BEQ 

$B2AF 

track vol is - 4 * 0 

B2A9- 

38 


SEC 



B2AA- 

A9 00 


LDA 

#$00 


B2AC- 

99 F6 

B3 

STA 

$B3F6,Y 

In ieder geval worden alle bytes 

B2AF- 

88 


DEY 


in de VTOC op 0 gezet zodat daaruit 

B2BO- 

CA 


DEX 


sector toewijzing blijkt. 

B2B1- 

DO EE 


BNE 

$B2A1 


B2B3- 

90 BD 


BCC 

$B272 

Volgende track s.v.p. 

B2B5- 

20 FB 

AF 

JSR 

$AFFB 

Schrijf VTOC naar diskette 

B2B8- 

AD FO 

B3 

LDA 

$B3F0 


B2BB- 

8D FO 

B5 

STA 

$B5F0 

Sectornummer nu laatste sector 

B2BE- 

DO 89 


BNE 

$B249 

in track. Wijs vrije sector toe. 

B2C0- 

4C 77 

B3 

JMP 

$B377 

Error: Disk Full 

B2C3- 

AD FI 

B5 

LDA 

$B5F1 

Geef nu nog niet benutte sectoren 

B2C6- 

DO 01 


BNE 

$B2C9 

vrij. Vond toewijzing plaats ? 

B2CS- 

60 


RTS 



B2C9- 

48 


PHA 



B2CA- 

20 F7 

AF 

JSR 

$AFF7 

Werk VTOC bij. 

B2CD- 

AC FO 

B5 

LDY 

$B5F0 


B2D0- 

68 


PLA 



B2D1- 

18 


CLC 



B2D2- 

20 DD 

B2 

JSR 

$B2DD 

Roteer de gehele bit mask. 

B2D5- 

A9 00 


LDA 

#$00 

Voeg hem in de VTOC bit map. 

B2D7- 

8D FI 

B5 

STA 

$B5F 1 

En check eventuele vrije sectoren. 

B2DA- 

4C FB 

AF 

JMP 

$AFFB 

Op deze wijze verkrijgen wij de 

B2DD- 

A2 FC 


LDX 

#$FC 

track, die wij zouden kunnen 

B2DF- 

7E F6 

B4 

ROR 

$B4F6,X 

benutten . 

B2E2- 

E8 


INX 



B2E3- 

DO FA 


BNE 

$B2DF 


B2E5- 

CB 


I NY 



B2E6- 

CC FO 

B3 

CPY 

$B3F0 


B2E9- 

DO F2 


BNE 

$B2DD 


B2EB- 

OA 


ASL 



B2EC- 

OA 


ASL 



B2ED- 

A8 


TAY 



B2EE- 

FO OF 


BEQ 

$B2FF 



t indien catalog elders, dan wljzigen. 
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B2F0- 

A2 

04 


LDX 

#$04 

B2F2- 

BD 

FI 

B5 

LDA 

$B5F1,X 

B2F5- 

19 

F6 

B3 

ORA 

$B3F6,Y 

B2F8- 

99 

F6 

B3 

STA 

$B3F6,Y 

B2FB- 

88 



DEY 


B2FC- 

CA 



DEX 


B2FD- 

DO 

F3 


BNE 

$B2F2 

B2FF- 

60 



RTS 


B300- 

AD 

BD 

B5 

LDA 

$B5BD 

B303- 

8D 

E6 

B5 

STA 

$B5E6 

B306- 

8D 

EA 

B5 

STA 

$B5EA 

B309- 

AD 

BE 

B5 

LDA 

$B5BE 

B30C- 

8D 

E4 

B5 

STA 

$B5E4 

B30F- 

8D 

EB 

B5 

STA 

$B5EB 

B312- 

A9 

00 


LDA 

#$00 

B314- 

8D 

E5 

B5 

STA 

$B5E5 

B317- 

AO 

10 


LDY 

#$10 

B319- 

AA 



TAX 


B31A- 

AD 

E6 

B5 

LDA 

$B5E6 

B31D- 

4A 



LSR 


B31E- 

BO 

03 


BCS 

$B323 

B320- 

8A 



TXA 


B321- 

90 

OE 


BCC 

$B331 

B323- 

18 



CLC 


B324- 

AD 

E5 

B5 

LDA 

$B5E5 

B327- 

6D 

E8 

B5 

ADC 

$B5E8 

B32A- 

8D 

E5 

B5 

STA 

$B5E5 

B32D- 

8A 



TXA 


B32E- 

6D 

E9 

B5 

ADC 

$B5E9 

B331- 

6A 



ROR 


B332- 

6E 

E5 

B5 

ROR 

$B5E5 

B335- 

6E 

E4 

B5 

ROR 

$B5E4 

B338- 

6E 

E6 

B5 

ROR 

$B5E6 

B33B- 

88 



DEY 


B33C- 

DO 

DB 


BNE 

$B319 

B33E- 

AD 

BF 

B5 

LDA 

$B5BF 

B341- 

8D 

EC 

B5 

STA 

$B5EC 

B344- 

6D 

E6 

B5 

ADC 

$B5E6 

B347- 

8D 

E6 

B5 

STA 

$B5E6 

B34A- 

AD 

CO 

B5 

LDA 

$B5C0 

B34D- 

8D 

ED 

B5 

STA 

$B5ED 

B350- 

6D 

E4 

B5 

ADC 

$B5E4 

B353- 

8D 

E4 

B5 

STA 

$B5E4 

B356- 

A9 

00 


LDA 

#$00 

B358- 

6D 

E5 

B5 

ADC 

$B5E5 

B35B- 

8D 

E5 

B5 

STA 

$B5E5 

B35E- 

60 



RTS 


B35F- 

A9 

01 


LDA 

#$01 

B361- 

DO 

22 


BNE 

$B385 

B363- 

A9 

02 


LDA 

#$02 

B365- 

DO 

IE 


BNE 

$B385 

B367- 

A9 

03 


LDA 

#$03 

B369- 

DO 

1A 


BNE 

$B385 

B36B- 

A9 

04 


LDA 

#$04 

B36D- 

DO 

16 


BNE 

$B385 

B36F- 

A9 

05 


LDA 

#$05 

B371- 

DO 

12 


BNE 

$B385 

B373- 

A9 

06 


LDA 

#$06 

B375- 

DO 

OE 


BNE 

$B385 

B377- 

4C 

ED 

BF 

JhP 

$BFED 

B37A- 

EA 



NOP 


B37B- 

A9 

OA 


LDA 

#$0A 


Voeg de file manager bits toe aan 
de VTOC en geef daarmee sectoren 
vrij, die niet door de file worden 
gebruikt. 


Bereken de file positie. 

Zet recordnummer in parmlist in 
werkruimte en in sector offsets. 


Voer een 16 bit vermenigvuldiging 
uit, na de hi-bits van de sector- 
offset te hebben afgezet. 


File positie=3 bytes (recnum 
x reclen) 

Hier komen de antwoorden. 


Voeg de byte offset uit de parmlist 
toe aan de 3 byte positiewaarde. 


Foutmeldingscodes. 

Language not available 

Range error 

Range error (subcode) 

Write protected 

End of data 

File not found 

Disk full en alle files sluiten. 
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B37D- 

DO 06 

BNE 

$B385 

B37F- 

AD C5 B5 

LDA 

$B5C5 

B382- 

18 

CLC 


B383- 

90 01 

BCC 

$B386 

B3B5- 

38 

SEC 


B386- 

08 

PHP 


B387- 

8D C5 B5 

STA 

$B5C5 

B38A- 

A9 00 

LDA 

#♦00 

B38C- 

85 48 

STA 

♦48 

B38E- 

20 7E AE 

JSR 

♦AE7E 

B391- 

28 

PLP 


B392- 

AE 9B B3 

LDX 

♦B39B 

B395- 

9A 

TXS 


B396- 

60 

RTS 


B397- 

11 OF 

ORA 

(♦OF),Y 

B399- 

00 

BRK 


B39A- 

00 

BRK 


B39B- 

E6 00 

INC 

♦00 

B39D- 

01 00 

ORA 

(♦00,X) 

B39F- 

00 

BRK 


B3A0- 

00 

BRK 


B3A1- 

00 

BRK 


B3A2- 

FF 

??? 


B3A3- 

FF 

??? 


B3A4- 

01 OA 

ORA 

(♦OA,X) 

B3A6- 

64 

??? 


B3A7- 

D4 

??? 


B3A8- 

C9 Cl 

CMP 

#^C1 

B3AA- 

C2 

??? 


B3AB- 

D3 

??? 


B3AC- 

D2 

??? 


B3AD- 

Cl C2 

CMP 

(♦C2,X) 

B3AF- 

AO C5 

LDY 

#^C5 

B3B1- 

CD D5 CC 

CMP 

♦CCD5 

B3B4- 

CF 

??? 


B3B5- 

D6 AO 

DEC 

♦AO, X 

B3B7- 

CB 

??? 


B3B8- 

D3 

??? 


B3B9- 

C9 C4 

CMP 

#^C4 

B3BB- 

04 

??? 


B3BC- 

11 OF 

ORA 

(♦OF),Y 

B3BE- 

03 

??? 


B3BF- 

00 

BRK 


B3C0- 

00 

BRK 


B3C1- 

FE 00 00 

INC 

♦0000,X 

B3C4- 

00 

BRK 


B3C5- 

00 

BRK 


B3C6- 

00 

BRK 


B3C7- 

00 

BRK 


B3C8- 

00 

BRK 


B3C9- 

00 

BRK 


B3CA- 

00 

BRK 


B3CB- 

00 

BRK 


B3CC- 

00 

BRK 


B3CD- 

00 

BRK 


B3CE- 

00 

BRK 


B3CF- 

00 

BRK 


B3D0- 

00 

BRK 


B3D1- 

00 

BRK 


B3D2- 

00 

BRK 


B3D3- 

00 

BRK 


B3D4- 

00 

BRK 



File Locked 

No error - returncode 


Clear carry flag. 

Standaard foutafhandelingsroutine. 

Er is een fout. C-flag 

Handel returncode af in parmlist* 


IOB set en clear monitor-status. 
File manager werkruimte in file 
buffer. 

Herstel processor status en stack 


File manager "kladblaadje” 


S register en directory index 
Catalog teller/lock-flag 
Toewijzingsflag 

Track free mask gebruikt door Init 

9 9 


9 9 

Track free mask gebruikt door 
Decimale conversie tabel 
01, 10, 100 

Filetabel van catalog ASC "T" 
"IA" 

"B" 

II C If 

"R" 

"AB" 

"EMULOV KSID" 


Init 



Zie ASCII-tabel. U kunt deze 
codes zelf wijzigen. 


VTOC sector buffer **** 

T/S eerste dir sector 

DOS release/versienummer (1,2,3) 


Volumenummer 


di 


skette 
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B3D5- 

00 

BRK 

B3D6- 

00 

BRK 

B3D7- 

00 

BRK 

B3D8- 

00 

BRK 

B3D9- 

00 

BRK 

B3DA- 

00 

BRK 

B3DB- 

00 

BRK 

B3DC- 

00 

BRK 

B3DD- 

00 

BRK 

B3DE- 

00 

BRK 

B3DF- 

00 

BRK 

B3E0- 

00 

BRK 

B3E1- 

00 

BRK 

B3E2- 

7A 

??? 

B3E3- 

00 

BRK 

B3E4- 

00 

BRK 

B3E5- 

00 

BRK 

B3E6- 

00 

BRK 

B3E7- 

00 

BRK 

B3E8- 

00 

BRK 

B3E9- 

00 

BRK 

B3EA- 

00 

BRK 

B3EB- 

OD FF 00 

ORA 

B3EE- 

00 

BRK 

B3EF- f 

23 

??? 

B3F0- 

10 00 

BPL 

B3F2- 

01 00 

ORA 

B3F4- 

00 

BRK 

B3F5- 

00 

BRK 

B3F6- 

00 

BRK 

B3F7- 

00 

BRK 

B3F8- 

00 

BRK 

B3F9- 

00 

BRK 

B3FA- 

00 

BRK 

B3FB- 

00 

BRK 

B3FC- 

00 

BRK 

B3FD- 

00 

BRK 

B3FE- 

00 

BRK 

B3FF- 

00 

BRK 

B400- 

00 

BRK 

B401- 

00 

BRK 

B402- 

00 

BRK 

B403- 

00 

BRK 

B404- 

00 

BRK 

B405- 

00 

BRK 

B406- 

00 

BRK 

B407- 

00 

BRK 

B408- 

00 

BRK 

B409- 

00 

BRK 

B40A- 

00 

BRK 

B40B- 

00 

BRK 

B40C- 

00 

BRK 

B40D- 

00 

BRK 

B40E- 

00 

BRK 

B40F- 

00 

BRK 

B410- 

00 

BRK 

B411- 

00 

BRK 

B412- 

00 

BRK 

B413- 

00 

BRK 

B414- 

00 

BRK 

B415- 

00 

BRK 

B416- 

00 

BRK 


VTOC sector buffer vervolg 


$OOFF Track welke straks is toe te wijzen 
B3EC: + of - looprichting arm. 
Aantal tracks per disk 
$B3F2 Aantal sectoren per track 

($00,X) Sectoromvang 2b (100) 

Track 0 bit map 


Track 1 bit map 


t Kan aangepast worden b.v. $24, mits 
eerder vermelde pointers worden 
afgestemd. (z . a . ) 


-*-* B47B Track bit map 34 
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B495- 

00 

BRK 

B496- 

00 

BRK 

B497- 

00 

BRK 

B498- 

00 

BRK 

B499- 

00 

BRK 

B49A- 

00 

BRK 

B49B- 

00 

BRK 

B49C- 

00 

BRK 

B49D- 

00 

BRK 

B49E- 

00 

BRK 

B49F- 

00 

BRK 

B4A0- 

00 

BRK 

B4A1- 

00 

BRK 

B4A2- 

00 

BRK 

B4A3- 

00 

BRK 

B4A4- 

00 

BRK 

B4A5- 

00 

BRK 

B4A6- 

00 

BRK 

B4A7- 

00 

BRK 

B4A8- 

00 

BRK 

B4A9- 

00 

BRK 

B4AA- 

00 

BRK 

B4AB- 

00 

BRK 

B4AC- 

00 

BRK 

B4AD- 

00 

BRK 

B4AE- 

00 

BRK 

B4AF- 

00 

BRK 

B4B0- 

00 

BRK 

B4B1- 

00 

BRK 

B4B2- 

00 

BRK 

B4B3- 

00 

BRK 

B4B4- 

00 

BRK 

B4B5- 

00 

BRK 

B4B6- 

00 

BRK 

B4B7- 

00 

BRK 

B4B8- 

00 

BRK 

B4B9- 

00 

BRK 

B4BA- 

00 

BRK 

B4BB- 

00 

BRK 

B4BC- 

11 OE 

ORA 

B4BE- 

00 

BRK 

B4BF- 

00 

BRK 

B4C0- 

00 

BRK 

B4C1- 

00 

BRK 

B4C2- 

00 

BRK 

B4C3- 

00 

BRK 

B4C4- 

00 

BRK 

B4C5- 

00 

BRK 

B4C6- 

13 

??? 

B4C7- 

OF 

??? 

B4C8- 

82 

??? 

B4C9- 

C8 

INY 

B4CA- 

C5 CC 

CMP 

B4CC- 

CC CF AO 

CPY 

B4CF- 

AO AO 

LDY 

B4D1- 

AO AO 

LDY 

B4D3- 

AO AO 

LDY 

B4D5- 

AO AO 

LDY 

B4D7- 

AO AO 

LDY 

B4D9- 

AO AO 

LDY 

B4DB- 

AO AO 

LDY 

B4DD- 

AO AO 

LDY 


<$OE),Y 



Directory sector buffer 
Track/sector volgende dir sector 


$CC 

♦AOCF 

#*A0 

#*A0 

#$A0 

#$A0 

#$A0 

#*A0 

#$A0 

#$A0 


Eerste Catalog entry en daarvan 
de T/S List op T13 S f 
Filetype en lockbit (Applesoft*) 
"HELLO" in ASCII 



=spaties -tot B5BA 
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B5C1- 

00 

BRK 


Vanaf $B5BB file manager parmlist* 

B5C2- 

00 

BRK 



B5C3- 

00 

BRK 



B5C4- 

00 

BRK 



B5C5- 

00 

BRK 


-hier komt b.v. de returncode 

B5C6- 

00 

BRK 



B5C7- 

00 

BRK 


-hier komt b.v, adres f.m. werkruimte 

B5C8- 

00 

BRK 



B5C9- 

00 

BRK 


-hier komt b.v. adres TSL buffer 

B5CA- 

00 

BRK 



B5CB- 

00 

BRK 


-hier komt b.v. adres datasector 

B5CC- 

00 

BRK 


buffer 

B5CD- 

00 

BRK 


-hier komt b.v. adres volgende 

B5CE- 

00 

BRK 


DOS buffer 

B5CF- 

00 

BRK 



B5D0- 

00 

BRK 


File manager werkruimte *** 

B5D1- 

13 

??? 


eerste TSL track 

B5D2- 

OF 

??? 


en sector 

B5D3- 

13 

??? 


huidige TSL t/s 

B5D4- 

OF 

??? 



B5D5- 

00 

BRK 


flags 80, 40, 20, 02, 00 write 

B5D6- 

13 

??? 


Data sector/track 

B5D7- 

OA 

ASL 



B5D8- 

01 00 

ORA 

($00,X) 

Directory sector index 

B5DA- 

7A 

??? 


Aantal sectoren in een TSL 

B5DB- 

00 

BRK 



B5DC- 

00 

BRK 


Relatieve sectornummer FSIL 

B5DD- 

00 

BRK 



B5DE- 

7A 

??? 


Relatieve sectornummer LastSector 

B5DF- 

00 

BRK 


InLi st. 

B5E0- 

04 

??? 


Relatieve sectornummer LastRead 

B5E1- 

00 

BRK 



B5E2- 

00 

BRK 


Sectorlengte in bytes hi-lo swap 

B5E3- 

01 04 

ORA 

($04,X) 

Sectorlengte in bytes hi-lo swap 

B5E5- 

00 

BRK 


3 bytes sector offset E4,E5,E6 

B5E6- 

73 

??? 



B5E7- 

00 

BRK 



B5E8- 

01 00 

ORA 

($00,X) 

Recordlengte t.b.v. OPEN 

B5EA- 

73 

??? 


Recordnummer 

B5EB- 

04 

??? 



B5EC- 

00 

BRK 


Byte offset 

B5ED- 

00 

BRK 



B5EE- 

06 00 

ASL 

$00 

Aantal sectoren in file 

B5F0- 

00 

BRK 


Sector toewijzingsgebied 6b 

B5F1- 

00 

BRK 



B5F2- 

00 

BRK 



B5F3- 

00 

BRK 



B5F4- 

00 

BRK 



B5F5- 

00 

BRK 



B5F6- 

82 

??? 


Filetype (Applesoft locked) 

B5F7- 

60 

RTS 


Slotnummer *16 

B5F8- 

01 FF 

ORA 

($FF,X) 

Drive/Volumenummer compl. 

B5FA- 

11 00 

ORA 

($00),Y 

Tracknummer 

B5FC-* 

00 

BRK 


vri j 

B5FD- 

00 

BRK 


vrij Hier kunt U iets kwijt. 

B5FE- 

00 

BRK 


vri j 

B5FF- 

00 

BRK 


vrij 

B600- 

01 A5 

ORA 

<$A5,X) 

START VAN BOOTFASE 2 RWTS 

B602- 

27 

??? 


B600 is Boot 1 image, dat bij het 

B603- 

C9 09 

CMP 

#$09 

initialiseren op track 0, sector 0 

B605- 

DO 18 

BNE 

$B61F 

komt • 

B607- 

A5 2B 

LDA 

$2B 
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B609- 

4A 



LSR 


B60A- 

4A 



LSR 


B60B- 

4A 



LSR 


B60C- 

4A 



LSR 


B60D- 

09 

CO 


ORA 

#*C0 

B60F- 

85 

3F 


STA 

♦3F 

B611- 

A9 

5C 


LDA 

#$5C 

B613- 

85 

3E 


STA 

$3E 

B615- 

18 



CLC 


B616- 

AD 

FE 

08 

LDA 

$08FE 

B619- 

6D 

FF 

08 

ADC 

$08FF 

B61C- 

8D 

FE 

08 

STA 

♦08FE 

B61F- 

AE 

FF 

08 

LDX 

$08FF 

B622- 

30 

15 


BMI 

$B639 

B624- 

BD 

4D 

08 

LDA 

♦084D,X 

B627- 

85 

3D 


STA 

$3D 

B629- 

CE 

FF 

08 

DEC 

♦08FF 

B62C- 

AD 

FE 

08 

LDA 

$08FE 

B62F- 

85 

27 


STA 

$27 

B631- 

CE 

FE 

08 

DEC 

$08FE 

B634- 

A6 

2B 


LDX 

$2B 

B636- 

6C 

3E 

00 

JMP 

($003E) 

B639- 

EE 

FE 

08 

INC 

$08FE 

B63C- 

EE 

FE 

08 

INC 

$08FE 

B63F- 

20 

89 

FE 

JSR 

$FE89 

B642- 

20 

93 

FE 

JSR 

$FE93 

B645- 

20 

2F 

FB 

JSR 

$FB2F 

B648- 

A6 

2B 


LDX 

$2B 

B64A- 

6C 

FD 

08 

JMP 

($08FD) 

B64D- 

00 



BRK 


B64E- 

OD 

OB 

09 

ORA 

$090B 

B651- 

07 



??? 


B652- 

05 

03 


ORA 

$03 

B654- 

01 

OE 


ORA 

($0E,X) 

B656- 

OC 



??? 


B657- 

OA 



ASL 


B658- 

08 



PHP 


B659- 

06 

04 


ASL 

$04 

B65B- 

02 



??? 


B65C- 

OF 



??? 


B65D- 

00 



BRK 


B65E- 

20 

64 

A7 

JSR 

$A764 

B661- 

BO 

08 


BCS 

$B66B 

B663- 

A9 

00 


LDA 

#$00 

B665- 

A8 



TAY 


B666- 

8D 

5D 

B6 

STA 

$B65D 

B669- 

91 

40 


STA 

($40),Y 

B66B- 

AD 

C5 

B5 

LDA 

$B5C5 

B66E- 

4C 

D2 

A6 

JMP 

$A6D2 

B671- 

AD 

5D 

B6 

LDA 

$B65D 

B674- 

FO 

08 


BEQ 

$B67E 

B676- 

EE 

BD 

B5 

INC 

$B5BD 

B679- 

DO 

03 


BNE 

$B67E 

B67B- 

EE 

BE 

B5 

INC 

$B5BE 

B67E- 

A9 

00 


LDA 

#$00 

B680- 

8D 

5D 

B6 

STA 

$B65D 

B683- 

4C 

46 

A5 

JMP 

$A546 

B686- 

8D 

BC 

B5 

STA 

$B5BC 

B689- 

20 

A8 

A6 

JSR 

$A6A8 

B68C- 

20 

EA 

A2 

JSR 

$A2EA 

B68F- 

4C 

7D 

A2 

JMP 

$A27D 

B692- 

AO 

13 


LDY 

#$13 


RWTS image voor T 0, S 0 


Bootslot 


Set keyboard 
Set video 
Set monitor 
X bootslot 

Bij sommige "beveiligde" diskettes 
vind je hier afwijkingen. 


APPEND patch gebied. 

Hier kom je vanuit de Append 
afhandeling. 

Foutafhandeling en juist sluiten 
van de file, indien fout niet 
"end of data" is. 


VERIFY patch gebied. 

Verify na Save of Bsave. 
Impliciet uitvoering van Verify 

APPEND patch na "End of Data" 
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B694- 

B1 

42 

LDA 

($42),Y 

B696- 

DO 

14 

BNE 

$B6AC 

B698- 

C8 


INY 


B699- 

CO 

17 

CPY 

#$17 

B69B- 

DO 

F7 

BNE 

$B694 

B69D- 

AO 

19 

LDY 

#$19 

B69F- 

B1 

42 

LDA 

($42),Y 

B6A1- 

99 

A4 B5 

STA 

$B5A4,Y 

B6A4- 

C8 


INY 


B6A5- 

CO 

ID 

CPY 

#$1D 

B6A7- 

DO 

F6 

BNE 

$B69F 

B6A9- 

4C 

BC A6 

JMP 

$A6BC 

B6AC- 

A2 

FF 

LDX 

#$FF 

B6AE- 

8E 

5D B6 

STX 

$B65D 

B6B1- 

DO 

F6 

BNE 

$B6A9 

B6B3- 

00 


BRK 


B6B4- 

00 


BRK 


B6B5- 

00 


BRK 


B6B6- 

00 


BRK 


B6B7- 

00 


BRK 


B6B8- 

00 


BRK 


B6B9- 

00 


BRK 


B6BA- 

00 


BRK 


B6BB- 

00 


BRK 


B6BC- 

00 


BRK 


B6BD- 

00 


BRK 


B6BE- 

00 


BRK 


B6BF- 

00 


BRK 


B6C0- 

00 


BRK 


B6C1- 

00 


BRK 


B6C2- 

00 


BRK 


B6C3- 

00 


BRK 


B6C4- 

00 


BRK 


B6C5- 

00 


BRK 


B6C6- 

00 


BRK 


B6C7- 

00 


BRK 


B6C8- 

00 


BRK 


B6C9- 

00 


BRK 


B6CA- 

00 


BRK 


B6CB- 

00 


BRK 


B6CC- 

00 


BRK 


B6CD- 

00 


BRK 


B6CE- 

00 


BRK 


-B6CF- 

00 


BRK 


B6D0- 

20 

58 FC 

JSR 

$FC58 

B6D3- 

A9 

C2 

LDA 

#$C2 

B6D5- 

20 

ED FD 

JSR 

$FDED 

B6D8- 

A9 

01 

LDA 

#$01 

B6DA- 

20 

DA FD 

JSR 

$FDDA 

B6DD- 

A9 

AD 

LDA 

#$AD 

B6DF- 

20 

ED FD 

JSR 

$FDED 

B6E2- 

A9 

00 

LDA 

#$00 

B6E4- 

20 

DA FD 

JSR 

$FDDA 

B6E7- 

60 


RTS 


B6E8- 

00 


BRK 


B6E9- 

00 


BRK 


B6EA- 

00 


BRK 


B6EB- 

00 


BRK 


B6EC- 

00 


BRK 


B6ED- 

00 


BRK 


B6EE- 

00 


BRK 


B6EF- 

00 


BRK 



Test de file positie 0 
Indien niet 0 dan Append-flag 
setten. 


Indien aan begin van file, dan 
f.m. parmlist bijwerken. 
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B6F0- 

00 



BRK 


B6F1- 

00 



BRK 


B6F2- 

00 



BRK 


B6F3- 

00 



BRK 


B6F4- 

00 



BRK 


B6F5- 

00 



BRK 


B6F6- 

00 



BRK 


B6F7- 

00 



BRK 


B6F8- 

00 



BRK 


B6F9- 

00 



BRK 


B6FA- 

00 



BRK 


B6FB- 

00 



BRK 


B6FC- 

00 



BRK 


B6FD- 

00 



BRK 


B6FE- 

36 

09 


ROL 

$09, X 

B700- 

8E 

E9 

B7 

STX 

$B7E9 

B703- 

8E 

F7 

B7 

STX 

$B7F7 

B706- 

A9 

01 


LDA 

#$01 

B70B- 

8D 

F8 

B7 

STA 

$B7F8 

B70B- 

8D 

EA 

B7 

STA 

$B7EA 

B70E- 

AD 

EO 

B7 

LDA 

$B7E0 

B711- 

8D 

El 

B7 

STA 

$B7E1 

B714- 

A9 

02 


LDA 

#$02 

B716- 

8D 

EC 

B7 

STA 

$B7EC 

B719- 

A9 

04 


LDA 

#$04 

B71B- 

8D 

ED 

B7 

STA 

$B7ED 

B71E- 

AC 

E7 

B7 

LDY 

$B7E7 

B721- 

88 



DEY 


B722- 

8C 

FI 

B7 

STY 

$B7F1 

B725- 

A9 

01 


LDA 

#$01 

B727- 

8D 

F4 

B7 

STA 

$B7F4 

B72A- 

8A 



TXA 


B72B- 

4A 



LSR 


B72C- 

4A 



LSR 


B72D- 

4A 



LSR 


B72E- 

4A 



LSR 


B72F- 

AA 



TAX 


B730- 

A9 

00 


LDA 

#$00 

B732- 

9D 

F8 

04 

STA 

$04F8,X 

B735- 

9D 

78 

04 

STA 

$0478,X 

B738- 

20 

93 

B7 

JSR 

$B793 

B73B- 

A2 

FF 


LDX 

#$FF 

B73D- 

9A 



TXS 


B73E- 

8E 

EB 

B7 

STX 

$B7EB 

B741- 

4C 

C8 

BF 

JMP 

$BFC8 

B744- 

20 

89 

FE 

JSR 

$FE89 

B747- 

4C 

84 

9D 

JMP 

$9D84 

B74A- 

AD 

E7 

B7 

LDA 

$B7E7 

B74D- 

38 



SEC 


B74E- 

ED 

FI 

B7 

SBC 

$B7F1 

B751- 

8D 

El 

B7 

STA 

$B7E1 

B754- 

AD 

E7 

B7 

LDA 

$B7E7 

B757- 

8D 

FI 

B7 

STA 

$B7F1 

B75A- 

CE 

FI 

B7 

DEC 

$B7F1 

B75D- 

A9 

02 


LDA 

#$02 

B75F- 

8D 

EC 

B7 

STA 

$B7EC 

B762- 

A9 

04 


LDA 

#$04 

B764- 

8D 

ED 

B7 

STA 

$B7ED 

B767- 

A9 

02 


LDA 

#$02 

B769- 

8D 

F4 

B7 

STA 

$B7F4 

B76C- 

20 

93 

B7 

JSR 

$B793 

B76F- 

AD 

E7 

B7 

LDA 

$B7E7 


B00T2 Fase *** 

Page adres lste pagina boot2 
Aantal sectoren in boot2 
B700: Stel slotnummer in 
Drive 


T nummer 
S nummer 


Commando code 
Creeer nieuwe stack 


Daar is-ie 
Read/Write module 


Volume 

Set keyboard 

Doe een Coldstart 

Schrijf DOS op track 0-2 

Set RWTS parmlist voor het 
wegschrijven van het DOS 


Read-Write pages module 
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B772- 

8D FE B6 

STA 

$B6FE 


B775- 

18 

CLC 



B776- 

69 09 

ADC 

#$09 


B778- 

8D FI B7 

STA 

$B7F1 


B77B- 

A9 0A 

LDA 

#$0A 


B77D- 

8D El B7 

STA 

$B7E1 


B780- 

38 

SEC 



B781- 

E9 01 

SBC 

#$01 


B783- 

8D FF B6 

STA 

$B6FF 


B786- 

8D ED B7 

STA 

$B7ED 


B789- 

20 93 B7 

JSR 

$B793 


B78C- 

60 

RTS 



B78D- 

00 

BRK 


vri j 

B73E- 

00 

BRK 


vrij geschikt voor korte 

B78F- 

00 

BRK 


vrij eigen routine 

B790- 

00 

BRK 


vrij 

B791- 

00 

BRK 


vrij 

B792- 

00 

BRK 


vrij 

B793- 

AD E5 B7 

LDA 

$B7E5 

Read/Write pages module *** 

B796- 

AC E4 B7 

LDY 

$B7E4 


B799- 

20 B5 B7 

JSR 

$B7B5 

Call RWTS middels extern entry 

B79C- 

AC ED B7 

LDY 

$B7ED 

punt. 

B79F- 

88 

DEY 



B7A0- 

10 07 

BPL 

$B7A9 


B7A2- 

AO OF 

LDY 

#$0F 


B7A4- 

EA 

NOP 



B7A5- 

EA 

NOP 



B7A6- 

CE EC B7 

DEC 

$B7EC 


B7A9- 

8C ED B7 

STY 

$B7ED 


B7AC- 

CE FI B7 

DEC 

$B7F1 


B7AF- 

CE El B7 

DEC 

$B7E1 


B7B2- 

DO DF 

BNE 

$B793 


B7B4- 

60 

RTS 



B7B5- 

08 

PHP 


Doe interrupts teniet 

B7B6- 

78 

SEI 



B7B7- 

20 00 BD 

JSR 

$BDOO 

en CALL RWTS 

B7BA- 

BO 03 

BCS 

$B7BF 


B7BC- 

28 

PLP 



B7BD- 

18 

CLC 



B7BE- 

60 

RTS 



B7BF- 

28 

PLP 



B7C0- 

38 

SEC 



B7C1- 

60 

RTS 



B7C2- 

AD BC B5 

LDA 

$B5BC 

Set RWTS parmlist voor 

B7C5- 

8D FI B7 

STA 

$B7F1 

het wegschrijven van het DOS 

B7C8- 

A9 00 

LDA 

#$00 


B7CA- 

8D FO B7 

STA 

$B7F0 


B7CD- 

AD F9 B5 

LDA 

$B5F9 


B7D0- 

49 FF 

EOR 

#$FF 


B7D2- 

8D EB B7 

STA 

$B7EB 


B7D5- 

60 

RTS 



B7D6- 

A9 00 

LDA 

#$00 

Maak huidige buffer leeg. 

B7D8- 

A8 

TAY 



B7D9- 

91 42 

STA 

($42),Y 

1 pagina leegmaken en pointers 

B7DB- 

C8 

I NY 


bijwerken 

B7DC- 

DO FB 

BNE 

$B7D9 


B7DE- 

60 

RTS 



B7DF- 

00 

BRK 


vrij 

B7E0- 

IB 

??? 


aantal pages in boot2 load 

B7E1- 

00 

BRK 


aantal sectoren voor R/W operatie 

B7E2- 

OA 

ASL 


aantal pages in bootl load 

B7E3- 

IB 

??? 
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B7E4- 

E8 

INX 


B7E5- 

B7 

??? 


B7E6- 

00 

BRK 


B7E7- 

B6 01 

LDX 

*01, Y 

B7E9- 

60 

RTS 


B7EA- 

01 FF 

□RA 

<*FF,X) 

B7EC- 

13 

??? 


B7ED- 

OA 

ASL 


B7EE- 

FB 

??? 


B7EF- 

B7 

??? 


B7F0- 

00 

BRK 


B7F1- 

96 00 

STX 

*00, Y 

B7F3- 

01 01 

ORA 

<*01,X) 

B7F5- 

00 

BRK 


B7F6- 

FE 60 01 

INC 

*0160,X 

B7F9- 

00 

BRK 


B7FA- 

00 

BRK 


B7FB- 

00 

BRK 


B7FC- 

01 EF 

ORA 

(*EF,X) 

B7FE- 

D8 

CLD 


B7FF- 

00 

BRK 


B800- 

A2 00 

LDX 

#*00 

B802- 

AO 02 

LDY 

#*02 

B804- 

88 

DEY 


B805- 

B1 3E 

LDA 

(*3E),Y 

B807- 

4A 

LSR 


B808- 

3E 00 BC 

ROL 

♦BCOO,X 

B80B- 

4A 

LSR 


B80C- 

3E 00 BC 

ROL 

*BCOO,X 

B80F- 

99 00 BB 

STA 

♦BBOO,Y 

BB12- 

E8 

INX 


B813- 

EO 56 

CPX 

#*56 

B815- 

90 ED 

BCC 

♦B804 

B817- 

A2 00 

LDX 

#*00 

B819- 

98 

TYA 


B81A- 

DO E8 

BNE 

*B804 

B81C- 

A2 55 

LDX 

#*55 

B81E- 

BD 00 BC 

LDA 

♦BCOO,X 

B821- 

29 3F 

AND 

#*3F 

B823- 

9D 00 BC 

STA 

♦BCOO,X 

B826- 

CA 

DEX 


B827- 

10 F5 

BPL 

*B81E 

B829- 

60 

RTS 


B82^~ 

38 

SEC 


B82B- 

86 27 

STX 

*27 

B82D- 

8E 78 06 

STX 

*0678 

B830- 

BD 8D CO 

LDA 

*C08D,X 

B833- 

BD 8E CO 

LDA 

♦C08E,X 

B836- 

30 7C 

BMI 

*B8B4 

B838- 

AD 00 BC 

LDA 

♦BCOO 

B83B- 

85 26 

STA 

*26 

B83D- 

A9 FF 

LDA 

#*FF 

B83F- 

9D 8F CO 

STA 

*C08F,X 

B842- 

ID 9C CO 

ORA 

♦C08C,X 

B845- 

48 

PHA 


B846- 

68 

PLA 


B847- 

EA 

NOP 


B848- 

AO 04 

LDY 

#*04 

B84A- 

48 

PHA 


B84B- 

68 

PLA 


B84C- 

20 B9 BB 

JSR 

*B8B9 

B84F- 

88 

DEY 



Pointer naar RWTS parmlist 2b 

Pointer naar boot fase 1 2b 
B7E8: RWTS PARMLIST************ 

Slot xl6 

Drive/volume (0 dan elke V goed) 

Tracknummer 

Sectornummer 

Pointer naar Device Characteristic 
Table: DCT 

Pointer naar data buffer 

t.b.v. Read/Write 

Byte teller/Commandocode l=read 

Foutcode 

Gevonden volumenummer/slot/drive 
vri j 
vri j 

DCT device type moet 01 zijn 
Fasen per track (01)/Motor on 
time teller 2b 
vri j 

PRENIBBLE ROUTINE voor data transfer 
Vertaalt 256 x 8 bits bytes in 
342 x 6 bits ”bytes” 

Pointer naar te verwerken page 


Formaat 00XXXXXX 

WRITE ROUTINE t.b.v. primaire 

en secundaire buffers. 
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B850- 

DO 

F8 


BNE 

$B84A 

B852- 

A9 

D5 


LDA 

#$D5 

B854- 

20 

B8 

B8 

JSR 

$B8B8 

B857- 

A9 

AA 


LDA 

#$AA 

B859- 

20 

B8 

B8 

JSR 

$B8B8 

B85C- 

A9 

AD 


LDA 

#*AD 

B85E- 

20 

B8 

B8 

JSR 

$B8B8 

B861- 

98 



TYA 


B862- 

AO 

56 


LDY 

#$56 

B864- 

DO 

03 


BNE 

$B869 

B866- 

B9 

00 

BC 

LDA 

$BCOO,Y 

B869- 

59 

FF 

BB 

EOR 

$BBFF,Y 

B86C- 

AA 



TAX 


B86D- 

BD 

29 

BA 

LDA 

$BA29,X 

B870- 

A6 

27 


LDX 

$27 

B872- 

9D 

8D 

CO 

STA 

$C08D,X 

B875- 

BD 

8C 

CO 

LDA 

$C08C,X 

B878- 

88 



DEY 


B879- 

DO 

EB 


BNE 

$B866 

B87B- 

A5 

26 


LDA 

$26 

B87D- 

EA 



NOP 


B87E- 

59 

00 

BB 

EOR 

$BBOO,Y 

B881- 

AA 



TAX 


B882- 

BD 

29 

BA 

LDA 

$BA29,X 

B885- 

AE 

78 

06 

LDX 

$0678 

B888- 

9D 

8D 

CO 

STA 

$C08D,X 

B88B- 

BD 

8C 

CO 

LDA 

$C08C,X 

B88E- 

B9 

00 

BB 

LDA 

$BBOO,Y 

B891- 

C8 



INY 


B892- 

DO 

EA 


BNE 

$B87E 

B894- 

AA 



TAX 


B895- 

BD 

29 

BA 

LDA 

$BA29,X 

B898- 

A6 

27 


LDX 

$27 

B89A- 

20 

BB 

B8 

JSR 

$B8BB 

B89D- 

A9 

DE 


LDA 

#$DE 

B89F- 

20 

B8 

B8 

JSR 

$B8B8 

B8A2- 

A9 

AA 


LDA 

#$AA 

B8A4- 

20 

B8 

B8 

JSR 

$B8B8 

B8A7- 

A9 

EB 


LDA 

#$EB 

B8A9- 

20 

B8 

B8 

JSR 

$B8B8 

B8AC- 

A9 

FF 


LDA 

#$FF 

B8AE- 

20 

B8 

B8 

JSR 

$B8B8 

B8B1- 

BD 

8E 

CO 

LDA 

$C08E,X 

08B4- 

BD 

8C 

CO 

LDA 

$C08C,X 

B8B7- 

60 



RTS 


B8B8- 

18 



CLC 


B8B9- 

48 



PHA 


B8BA- 

68 



PLA 


B8BB- 

9D 

8D 

CO 

STA 

$C08D,X 

B8BE- 

ID 

8C 

CO 

ORA 

$C08C,X 

B8C1- 

60 



RTS 


B8C2- 

AO 

00 


LDY 

#$00 

B8C4- 

A2 

56 


LDX 

#$56 

B8C6- 

CA 



DEX 


B8C7- 

30 

FB 


BMI 

$B8C4 

B8C9- 

B9 

00 

BB 

LDA 

$BBOO,Y 

B8CC- 

5E 

00 

BC 

LSR 

$BCOO,X 

B8CF- 

2A 



ROL 


B8D0- 

5E 

00 

BC 

LSR 

$BCOO,X 

B8D3- 

2A 



ROL 


B8D4- 

91 

3E 


STA 

($3E),Y 

B8D6- 

C8 



INY 



Schrijf 5 autosync bytes, start data 
bytes ($D5, $AA, $AD), 342 data bytes 
een 1 byte checksum, en 
eindmarkeringen ($DE, $AA, $EB) 


Write Translate Tabel 


Write byte subroutine **** 

Timing code wordt benut voor 
het wegschrijven. 32 cycles 
interval• 


POSTNIBBLE Subroutine 
Vertaalt 342 x 6 bits ’’bytes" 
in 236 x 8 bits bytes. 
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B8D7- 

C4 

26 


CPY 

$26 

B8D9- 

DO EB 


BNE 

$B8C6 

B8DB- 

60 



RTS 


B8DC- 

AO 

20 


LDY 

#$20 

B8DE- 

88 



DEY 


B8DF- 

FO 

61 


BEQ 

$B942 

B8E1- 

BD 

8C 

CO 

LDA 

$C08C,X 

B8E4- 

10 

FB 


BPL 

$B8E1 

B8E6- 

49 

D5 


EOR 

#$D5 

B8E8- 

DO 

F4 


BNE 

$B8DE 

B8EA- 

EA 



NOP 


B8EB- 

BD 

8C 

CO 

LDA 

$C08C,X 

B8EE- 

10 

FB 


BPL 

$B8EB 

B8F0- 

C9 

AA 


CMP 

#$AA 

B8F2- 

DO 

F2 


BNE 

$B8E6 

B8F4- 

AO 

56 


LDY 

#$56 

B8F6- 

BD 

8C 

CO 

LDA 

$C08C,X 

B8F9- 

10 

FB 


BPL 

$B8F6 

B8FB- 

C9 

AD 


CMP 

#$AD 

B8FD- 

DO 

E7 


BNE 

$B8E6 

B8FF- 

A9 

00 


LDA 

#$00 

B901- 

88 



DEY 


B902- 

84 

26 


STY 

$26 

B904- 

BC 

8C 

CO 

LDY 

$C08C,X 

B907- 

10 

FB 


BPL 

$B904 

B909- 

59 

00 

BA 

EOR 

$BA00,Y 

B90C- 

A4 

26 


LDY 

$26 

B90E- 

99 

00 

BC 

STA 

$BCOO,Y 

B911- 

DO 

EE 


BNE 

$B901 

B913- 

84 

26 


STY 

$26 

B915- 

BC 

8C 

CO 

LDY 

$C08C,X 

B918- 

10 

FB 


BPL 

$B915 

B91A- 

59 

00 

BA 

EOR 

$BA00,Y 

B91D- 

A4 

26 


LDY 

$26 

B91F- 

99 

00 

BB 

STA 

$BB00,Y 

B922- 

C8 



I NY 


B923- 

DO 

EE 


BNE 

$B913 

B925- 

BC 

8C 

CO 

LDY 

$C08C,X 

B928- 

10 

FB 


BPL 

$B925 

B92A- 

D9 

00 

BA 

CMP 

$BAOO,Y 

B92D- 

DO 

13 


BNE 

$B942 

B92F- 

BD 

8C 

CO 

LDA 

$C08C,X 

B932- 

10 

FB 


BPL 

$B92F 

B934- 

C9 

DE 


CMP 

#$DE 

B936- 

DO 

OA 


BNE 

$B942 

B938- 

EA 



NOP 


B939- 

BD 

8C 

CO 

LDA 

$C08C,X 

B93C- 

10 

FB 


BPL 

$B939 

B93E- 

C9 

AA 


CMP 

#$AA 

B940- 

FO 

5C 


BEQ 

$B99E 

B942- 

38 



SEC 


B943- 

60 



RTS 


B944- 

AO 

FC 


LDY 

#$FC 

B946- 

64 

26 


STY 

$26 

B948- 

C8 



I NY 


B949- 

DO 

04 


BNE 

$B94F 

B94B- 

E6 

26 


INC 

$26 

B94D- 

FO 

F3 


BEQ 

$B942 

B94F- 

BD 

BC 

CO 

LDA 

$C08C,X 

B952- 

10 

FB 


BPL 

$B94F 

B954- 

C9 

D5 


CMP 

#$D5 

B956- 

DO 

FO 


BNE 

$B948 


READ subroutine *** 

Lees sector met data van disk en 
gebruikt de buffers. 


"Beveiligde" diskettes kunnen 
hierop heel lelijk doen, als 
we ze met het standaard DOS 
willen gebruiken. 


++A9 00 is mogelijk en kan 
ertoe leiden, dat "beveiliging" 
het begeeft. 


9-92 





READ ADRES FIELD Subroutine 


*** 


B958- 

EA 



NOP 


B959- 

BD 

8C 

CO 

LDA 

$C08C,X 

B95C- 

10 

FB 


BPL 

$B959 

B95E- 

C9 

AA 


CMP 

#$AA 

B960- 

DO 

F2 


BNE 

$B954 

B962- 

AO 

03 


LDY 

#$03 

B964- 

BD 

8C 

CO 

LDA 

$C08C,X 

B967- 

10 

FB 


BPL 

$B964 

B969- 

C9 

96 


CMP 

#$96 

B96B- 

DO 

E7 


BNE 

$B954 

B96D- 

A9 

00 


LDA 

#$00 

B96F- 

85 

27 


STA 

$27 

B971- 

BD 

8C 

CO 

LDA 

$C08C,X 

B974- 

10 

FB 


BPL 

$B971 

B976- 

2A 



ROL 


B977- 

85 

26 


STA 

$26 

B979- 

BD 

8C 

CO 

LDA 

$C08C,X 

B97C- 

10 

FB 


BPL 

$B979 

B97E- 

25 

26 


AND 

$26 

B980- 

99 

2C 

00 

STA 

$002C,Y 

B983- 

45 

27 


EOR 

$27 

B985- 

88 



DEY 


B986- 

10 

E7 


BPL 

$B96F 

B988- 

A8 



TAY 


B989- 

DO 

B7 


BNE 

$B942 

B98B- 

BD 

8C 

CO 

LDA 

$C08C,X 

B98E- 

10 

FB 


BPL 

$B98B 

B990- 

C9 

DE 


CMP 

#$DE 

B992- 

DO 

AE 


BNE 

$B942 

B994- 

EA 



NOP 


B995- 

BD 

8C 

CO 

LDA 

$C08C,X 

B998- 

10 

FB 


BPL 

$B995 

B99A- + 

C9 

AA 


CMP 

#$AA 

B99C- 

DO 

A4 


BNE 

$B942 

B99E- 

18 



CLC 


B99F- 

60 



RTS 


B9A0- 

86 

2B 


STX 

$2B 

B9A2- 

85 

2A 


STA 

$2A 

B9A4- 

CD 

78 

04 

CMP 

$0478 

B9A7- 

FO 

53 


BEQ 

$B9FC 

B9A9- 

A9 

00 


LDA 

#$00 

B9AB- 

85 

26 


STA 

$26 

B9AD- 

AD 

78 

04 

LDA 

$0478 

B9B0- 

85 

27 


STA 

$27 

B9B2- 

38 



SEC 


B9B3- 

E5 

2A 


SBC 

$2A 

B9B5- 

FO 

33 


BEQ 

$B9EA 

B9B7- 

BO 

07 


BCS 

$B9C0 

B9B9- 

49 

FF 


EOR 

#$FF 

B9BB- 

EE 

78 

04 

INC 

$0478 

B9BE- 

90 

05 


BCC 

$B9C5 

B9C0- 

69 

FE 


ADC 

#$FE 

B9C2- 

CE 

78 

04 

DEC 

$0478 

B9C5- 

C5 

26 


CMP 

$26 

B9C7- 

90 

02 


BCC 

$B9CB 

B9C9- 

A5 

26 


LDA 

$26 

B9CB- 

C9 

OC 


CMP 

#$0C 

B9CD- 

BO 

01 


BCS 

$B9D0 

B9CF- 

A8 



TAY 


B9D0- 

38 



SEC 


B9D1- 

20 

EE 

B9 

JSR 

$B9EE 

B9D4- 

B9 

11 

BA 

LDA 

$BA11,Y 


Lees start adres merktekens 
($D5,$AA,$96), adres informatie 
(V, T/S, checksum) en afsluiting 
($DE,$AA) 


Ook hier geven sommige "beveili- 
gingen" problemen. 


++A9.00 kan problemen oplossen. 
In samenhang met B93E 


ARM BESTURING ’SEEKABS' 


Zoek de juiste track, 

Acc=track (half voor eenfase drive) 
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B9D7- 

20 

00 

BA 

JSR 

$BAOO 

B9DA- 

A5 

27 


LDA 

$27 

B9DC- 

18 



CLC 


B9DD- 

20 

FI 

B9 

JSR 

$B9F1 

B9E0- 

B9 

ID 

BA 

LDA 

$BA1D,Y 

B9E3- 

20 

00 

BA 

JSR 

$BAOO 

B9E6- 

E6 

26 


INC 

$26 

B9E8- 

DO 

C3 


BNE 

$B9AD 

B9EA- 

20 

00 

BA 

JSR 

$BAOO 

B9ED- 

18 



CLC 


B9EE- 

AD 

78 

04 

LDA 

$0478 

B9F1- 

29 

03 


AND 

#$03 

B9F3- 

2A 



ROL 


B9F4- 

05 

2B 


ORA 

$2B 

B9F6- 

AA 



TAX 


B9F7- 

BD 

80 

CO 

LDA 

$C080,X 

B9FA- 

A6 

2B 


LDX 

$2B 

B9FC- 

60 



RTS 


B9FD- 

AA 



TAX 


B9FE- 

AO 

AO 


LDY 

#$A0 

BAOO- 

A2 

11 


LDX 

#$11 

BA02- 

CA 



DEX 


BA03- 

DO 

FD 


BNE 

$BA02 

BA05- 

E6 

46 


INC 

$46 

BA07- 

DO 

02 


BNE 

$BAOB 

BA09- 

E6 

47 


INC 

$47 

BAOB- 

38 



SEC 


BAOC- 

E9 

01 


SBC 

#$01 

BAOE- 

DO 

FO 


BNE 

$BAOO 

BA10- 

60 



RTS 


BA11- 

01 

30 


ORA 

($30,X) 

BA13- 

28 



PLP 


BA14- 

24 

20 


BIT 

$20 

BA16- 

IE 

ID 

1C 

ASL 

$1C1D,X 

BA19- 

1C 



??? 


BA1A- 

1C 



??? 


BA1B- 

1C 



??? 


BA1C- 

1C 



??? 


BA ID¬ 

70 

2C 


BVS 

$BA4B 

EA IF- 

26 

22 


ROL 

$22 

BA21- 

IF 



??? 


BA22- 

IE 

ID 

1C 

ASL 

$1C1D,X 

BA25- 

1C 



??? 


BA26- 

1C 



??? 


BA27- 

1C 



??? 


BA28- 

1C 



??? 


BA29- 

96 

97 


STX 

$97, Y 

BA2B- 

9A 



TXS 


BA2C- 

9B 



??? 


BA2D- 

9D 

9E 

9F 

STA 

$9F9E,X 

BA30- 

A6 

A7 


LDX 

$A7 

BA32- 

AB 



??? 


BA33- 

AC 

AD 

AE 

LDY 

$AEAD 

BA36- 

AF 



??? 


BA37- 

B2 



??? 


BA38- 

B3 



??? 


BA39- 

B4 

B5 


LDY 

$B5,X 

BA3B- 

B6 

B7 


LDX 

$B7, Y 

BA3D- 

B9 

BA 

BB 

LDA 

$BBBA,Y 

BA40- 

BC 

BD 

BE 

LDY 

$BEBD,X 

BA43- 

BF 



??? 


BA44- 

CB 



??? 



Arm Vertragings Routine 
Vertraagt een gegeven waarde tot 
een veelvoud van 10Q y§ea. 

$46,47 bevatten $EF,D8 uit DCT 


Vertragingstabel armbeweging 


Fase 0 en 1 vertragingssets 
voor stappenmotor 


WRITE Vertalings Routine *** 
Bevat 6 bits "bytes”, waarmee 
8 bits bytes worden vertaald. 
Waarden tussen $96 en $FF. 
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BA45- 

CD CE CF 

CMP 

$CFCE 

BA48- 

D3 

??? 


BA49- 

D6 D7 

DEC 

$D7,X 

BA4B- 

D9 DA DB 

CMP 

*DBDA,Y 

BA4E- 

DC 

??? 


BA4F- 

DD DE DF 

CMP 

♦DFDE,X 

BA52- 

E5 E6 

SBC 

$E6 

BA54- 

E7 

??? 


BA55- 

E9 EA 

SBC 

#$EA 

BA57- 

EB 

??? 


BA58- 

EC ED EE 

CPX 

$EEED 

BA5B- 

EF 

??? 


BA5C- 

F2 

??? 


BA5D- 

F3 

??? 


BA5E- 

F4 

??? 


BA5F- 

F5 F6 

SBC 

$F6,X 

BA61- 

F7 

??? 


BA62- 

F9 FA FB 

SBC 

$FBFA,Y 

BA65- 

FC 

??? 


BA66- 

FD FE FF 

SBC 

*FFFE,X 

BA69- 

B3 

??? 


BA6A- 

B3 

??? 


BA6B- 

AO EO 

LDY 

#$E0 

BA6D- 

B3 

??? 


BA6E- 

C3 

??? 


BA6F- 

C5 B3 

CMP 

$B3 

BA71- 

AO EO 

LDY 

#$E0 

BA73- 

B3 

??? 


BA74- 

C3 

??? 


BA75- 

C5 B3 

CMP 

$B3 

BA77- 

AO EO 

LDY 

#$E0 

BA79- 

B3 

??? 


BA7A- 

B3 

??? 


BA7B- 

C5 AA 

CMP 

♦AA 

BA7D- 

AO 82 

LDY 

#♦82 

BA7F- 

B3 

??? 


BA80- 

B3 

??? 


BA81- 

C5 AA 

CMP 

♦AA 

BAQ3- 

AO 82 

LDY 

#♦82 

BA85- 

C5 B3 

CMP 

♦B3 

BA87- 

B3 

??? 


BA88- 

AA 

TAX 


BA89- 

88 

DEY 


BA8A- 

82 

??? 


BA8B- 

C5 B3 

CMP 

♦B3 

BA8D- 

B3 

??? 


BA8E- 

AA 

TAX 


BA8F- 

88 

DEY 


BA90- 

82 

??? 


BA91- 

C5 C4 

CMP 

♦C4 

BA93- 

B3 

??? 


BA94- 

BO 88 

BCS 

♦BA IE 

BA96- 

00 

BRK 


BA97- 

01 98 

ORA 

(♦98,X) 

BA99- 

99 02 03 

STA 

♦0302,Y 

BA9C- 

9C 

??? 


BA9D- 

04 

??? 


BA9E- 

05 06 

ORA 

♦06 

BAAO- 

AO A1 

LDY 

#^A1 

BAA2- 

A2 A3 

LDX 

#^A3 

BAA4- 

A4 A5 

LDY 

♦A5 

BAA6- 

07 

??? 



READ Vertalings Routine 
vri j 


vri j 

Nibble vertalingsroutine 
codes tussen $96 en $FF 


*** 


met 
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BAA7- 

08 

PHP 



BAA8- 

A8 

TAY 



BAA9- 

A9 AA 

LDA 

#$AA 


BAAB- 

09 OA 

ORA 

#$0A 


BAAD- 

OB 

??? 



BAAE- 

OC 

??? 



BAAF- 

OD BO B1 

ORA 

♦BIBO 


BAB2- 

OE OF 10 

ASL 

♦ 100F 


BAB5- 

11 12 

ORA 

(♦12),Y 


BAB7- 

13 

??? 



BAB8- 

B8 

CLV 



BAB9- 

14 

??? 



BABA- 

15 16 

ORA 

♦ 16,X 


BABC- 

17 

??? 



BABD- 

18 

CLC 



BABE- 

19 1A CO 

ORA 

♦C01A,Y 


BAC1- 

Cl C2 

CMP 

(♦C2,X) 


BAC3- 

C3 

??? 



BAC4- 

C4 C5 

CPY 

♦C5 


BAC6- 

C6 C7 

DEC 

♦C7 


BAC8- 

C8 

I NY 



BAC9- 

C9 CA 

CMP 

#^CA 

READ Vertalings Routine 

BACB- 

IB 

??? 



BACC- 

CC 1C ID 

CPY 

♦ 1D1C 


BACF- 

IE DO D1 

ASL 

♦DIDO,X 


BAD2- 

D2 

??? 



BAD3- 

IF 

??? 



BAD4- 

D4 

??? 



BAD5- 

D5 20 

CMP 

♦20, X 


BAD7- 

21 D8 

AND 

(♦D8,X) 


BAD9- 

22 

??? 



BADA- 

23 

??? 



BADB- 

24 25 

BIT 

♦25 


BADD- 

26 27 

ROL 

♦27 


BADF- 

28 

PLP 



BAEO- 

EO El 

CPX 

#^E1 


BAE2- 

E2 

??? 



BAE3- 

E3 

??? 



BAE4- 

E4 29 

CPX 

♦29 


BAE6- 

2A 

ROL 



BAE7- 

2B 

??? 



BAE8- 

EB 

INX 



BAE9- 

2C 2D 2E 

BIT 

♦2E2D 


BAEC- 

2F 

??? 



BAED- 

30 31 

BMI 

♦BB20 


BAEF- 

32 

??? 



BAFO- 

FO FI 

BEQ 

♦BAE3 


BAF2- 

33 

??? 



BAF3- 

34 

??? 



BAF4- 

35 36 

AND 

♦36, X 


BAF6- 

37 

??? 



BAF7- 

38 

SEC 



BAF8- 

F8 

SED 



BAF9- 

39 3A 3B 

AND 

♦3B3A,Y 


BAFC- 

3C 

??? 



BAFD- 

3D 3E 3F 

AND 

♦3F3E,X 


BBOO- 

11 00 

ORA 

(♦00),Y 

Begin Primaire Buffer 

BB02- 

01 03 

ORA 

(♦03,X) 


BB04- 

03 

??? 



BB05- 

00 

BRK 



BB06- 

2C 00 05 

BIT 

♦0500 


BB09- 

03 

??? 


Loopt tot $BBFF door. 
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BC21- 

BC22- 

BC23- 

BC24- 

BC25- 

BC26- 

BC27- 

BC28- 

BC29- 

BC2A- 

BC2B- 

BC2C- 

BC2D- 

BC2E- 

BC2F- 

BC30- 

BC31- 

BC32- 

BC33- 

BC34- 

BC35- 

BC36- 

BC37- 

BC38- 

BC39- 

BC3A- 

BC3B- 

BC3C- 

BC3D- 

BC3E- 

BC3F- 

BC40- 

BC41- 

BC42- 

BC43- 

BC44- 

BC45- 

BC46- 

BC47- 

BC48- 

BC49- 

BC4A- 

BC4B- 

BC4C- 

BC4D- 

BC4E- 

BC4F- 

BC50- 

BC51- 

BC52- 

BC53- 

BC54- 

BC55- 

BC56- 

BC57- 

BC5A- 

BC5D- 

BC5F-v 

BC61- 

BC64- 

BC67- 

BC68- 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


00 


BRK 


38 


SEC 


BD 8D 

CO 

LDA 

$C08D,X 

BO 8E 

CO 

LDA 

$C08E,X 

30 5E 


BMI 

$BCBD 

A9 FF 


LDA 

#$FF 

9D 8F 

CO 

STA 

$C08F,X 

DO 8C 

CO 

CMP 

*C08C,X 

48 


PHA 


68 


PLA 



$BCOO Start Secundaire Buffer 


Einde vrije buffer ruimte 
Schrijf Adresfield tijdens INIT 

Schrijf autosync bytes uit V-reg 

/$FE zorgt voor "beveiliging” 
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BC69- 

20 

C3 

BC 

JSR 

$BCC3 


BC6C- 

20 

C3 

BC 

JSR 

$BCC3 


BC6F- 

9D 

8D 

CO 

STA 

$C08D,X 


BC72- 

DD 

8C 

CO 

CMP 

$COBC,X 


BC75- 

EA 



NOP 



BC76- 

88 



DEY 



BC77- 

DO 

FO 


BNE 

*BC69 


BC79- 

A9 

D5 


LDA 

#$D5 

Start adres markeringen 

BC7B- 

20 

D5 

BC 

JSR 

$BCD5 


BC7E- 

A9 

AA 


LDA 

#$AA 

• 

BC80- 

20 

D5 

BC 

JSR 

$BCD5 


BC83- 

A9 

96 


LDA 

#$96 

• 

BC85- 

20 

D5 

BC 

JSR 

$BCD5 


BC88- 

A5 

41 


LDA 

$41 

Vol nummer 

BC8A- 

20 

C4 

BC 

JSR 

$BCC4 


BC8D- 

A5 

44 


LDA 

$44 

Track nummer 

BC8F- 

20 

C4 

BC 

JSR 

$BCC4 


BC92- 

A5 

3F 


LDA 

$3F 

Sector nummer 

BC94- 

20 

C4 

BC 

JSR 

$BCC4 


BC97- 

A5 

41 


LDA 

$41 


BC99- 

45 

44 


EOR 

$44 


BC9B- 

45 

3F 


EOR 

$3F 


BC9D- 

48 



PHA 



BC9E- 

4A 



LSR 



BC9F- 

05 

3E 


ORA 

$3E 


BCA1- 

9D 

8D 

CO 

STA 

$C08D,X 


BCA4- 

BD 

BC 

CO 

LDA 

$C08C,X 


BCA7- 

68 



PLA 



BCA8- 

09 

AA 


ORA 

#$AA 


BCAA- 

20 

D4 

BC 

JSR 

$BCD4 


BCAD- / 

A9 

DE 


LDA 

#$DE 

/$DF zorgt voor ’’beveiliging” 

BCAF- 

20 

D5 

BC 

JSR 

$BCD5 


BCB2- 

A9 

AA 


LDA 

#$AA 

Afsluitmarkering kan voor beveili 

BCB4- 

20 

D5 

BC 

JSR 

$BCD5 

ging worden gebruikt. INIT met 

BCB7- 

A9 

EB 


LDA 

#$EB 

te beveiligen programma in geheug 

BCB9- 

20 

D5 

BC 

JSR 

$BCD5 

en breng dan de "beveiligingen" a 

BCBC- 

18 



CLC 


waarna INIT kan plaatsvinden. 

BCBD- 

BD 

8E 

CO 

LDA 

$C08E,X 

Dus: Laadt programma met standaar 

BCCO- 

BD 

8C 

CO 

LDA 

$COBC,X 

DOS, dan wijzigen en INIT. 

BCC3- 

60 



RTS 



BCC4- 

48 



PHA 


WRITE dubbele byte subroutine 

BCC5- 

4A 



LSR 


Timing code uit 32 cycles 

BCC6- 

05 

3E 


ORA 

$3E 

interval. 

BCC8- 

9D 

8D 

CO 

STA 

$C08D,X 


BCCB- 

DD 

BC 

CO 

CMP 

$C08C,X 


BCCE- 

68 



PLA 



BCCF- 

EA 



NOP 



BCDO- 

EA 



NOP 



BCD1- 

EA 



NOP 



BCD2- 

09 

AA 


ORA 

#$AA 


BCD4- 

EA 



NOP 



BCD5- 

EA 



NOP 



BCD6- 

48 



PHA 



BCD7- 

68 



PLA 



BCD8- 

9D 

8D 

CO 

STA 

$C08D,X 


BCDB- 

DD 

8C 

CO 

CMP 

$C08C,X 


BCDE- 

60 



RTS 



BCDF- 

88 



DEY 


BCDF-BCFF vrij 

BCEO- 

A5 

E8 


LDA 

$E8 

Geschikt voor ’’beveiligingen" 

BCE2- 

91 

AO 


STA 

($AO),Y 

Bijv . : $A4E2: 4C DF BC, dan 

BCE4- 

94 

88 


STY 

$88, X 

$BCDF; A9 FF 85 D6 6C 58 9D 

BCE6- 

96 

E8 


STX 

$E8, Y 

Bekijk hiermee uw Basic programma 
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BCE8- 

91 AO 

STA 

($AO),Y 

BCEA- 

94 88 

STY 

$88, X 

BCEC- 

96 91 

STX 

$91, Y 

BCEE- 

91 C8 

STA 

($C8),Y 

BCFO- 

94 DO 

STY 

$D0, X 

BCF2- 

96 91 

STX 

$91, Y 

BCF4- 

91 C8 

STA 

($C8),Y 

BCF6- 

94 DO 

STY 

$D0, X 

BCF8- 

96 91 

STX 

$91, Y 

BCFA- 

A3 

??? 


BCFB- 

C8 

INY 


BCFC- 

AO A5 

LDY 

#$A5 

BCFE- 

85 A4 

STA 

$A4 

BD00- 

84 48 

STY 

$48 

BD02- 

85 49 

STA 

$49 

BD04- 

AO 02 

LDY 

#$02 

BD06- 

8C F8 06 

STY 

$06FB 

BD09- 

AO 04 

LDY 

#$04 

BDOB- 

8C F8 04 

STY 

$04F8 

BDOE- 

AO 01 

LDY 

#$01 

BD10- 

B1 48 

LDA 

($48),Y 

BD12- 

AA 

TAX 


BD13- 

AO OF 

LDY 

#$0F 

BD15- 

D1 48 

CMP 

($48),Y 

BD17- 

FO IB 

BEQ 

$BD34 

BD19- 

8A 

TXA 


BD1A- 

48 

PHA 


BD1B- 

B1 48 

LDA 

($48),Y 

BD1D- 

AA 

TAX 


BD1E- 

68 

PLA 


BD1F- 

48 

PHA 


BD20- 

91 48 

STA 

($48),Y 

BD22- 

BD 8E CO 

LDA 

$C08E,X 

BD25- 

AO 08 

LDY 

#$08 

BD27- 

BD BC CO 

LDA 

$C08C,X 

BD2A- 

DD 8C CO 

CMP 

$C08C,X 

BD2D- 

DO F6 

BNE 

$BD25 

BD2F- 

88 

DEY 


BD30- 

DO F8 

BNE 

$BD2A 

BD32- 

68 

PLA 


BD33- 

AA 

TAX 


BD34- 

BD 8E CO 

LDA 

$C08E,X 

BD37- 

BD BC CO 

LDA 

$C08C,X 

BD3A- 

AO 08 

LDY 

#$08 

BD3C- 

BD 8C CO 

LDA 

$C08C,X 

BD3F- 

48 

PHA 


BD40- 

68 

PLA 


BD41- 

48 

PHA 


BD42- 

68 

PLA 


BD43- 

8E F8 05 

STX 

$05F8 

BD46- 

DD 8C CO 

CMP 

$C08C,X 

BD49- 

DO 03 

BNE 

$BD4E 

BD4B- 

88 

DEY 


BD4C- 

DO EE 

BNE 

$BD3C 

BD4E- 

08 

PHP 


BD4F- 

BD 89 CO 

LDA 

$C089,X 

BD52- 

AO 06 

LDY 

#$06 

BD54- 

B1 48 

LDA 

($48),Y 

BD56- 

99 36 00 

STA 

$0036,Y 

BD59- 

C8 

INY 


BD5A- 

CO OA 

CPY 

#$0A 

BD5C- 

DO F6 

BNE 

$BD54 


En: $AE3A: 4C EC BC dan $BCEC: 
20 IB FD C9 9B FO 01 60 4C 2C 6E 
Onderbreekt lange Catalog met 
druk op ESC-toets. 


RWTS HOOFD ROUTINES ******** 

Y en A naar $48,49 pointer IOB 


Zoekparameter, mag niet lager voor 
snellere disk access. 


Is slot gewijzigd ? 
Update slot in IOB 


Wacht tot oorspronkelijke drive 
stil staat. 


Set READ mode en controleert 
of drive draait. 


Pointers uit IOB naar zero page 
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BD5E- 

AO 

03 


LDY 

#$03 

BD60- 

B1 

3C 


LDA 

($30, Y 

BD62- 

85 

47 


STA 

$47 

BD64- 

AO 

02 


LDY 

#$02 

BD66- 

B1 

48 


LDA 

($48),Y 

BD68- 

AO 

10 


LDY 

#$10 

BD6A- 

D1 

48 


CMP 

($48),Y 

BD6C- 

FO 

06 


BEQ 

$BD74 

BD6E- 

91 

48 


STA 

($48),Y 

BD70- 

28 



PLP 


BD71- 

AO 

00 


LDY 

#$00 

BD73- 

08 



PHP 


BD74- 

6A 



ROR 


BD75- 

90 

05 


BCC 

$BD7C 

BD77- 

BD 

8A 

CO 

LDA 

$COBA,X 

BD7A- 

BO 

03 


BCS 

$BD7F 

BD7C- 

BD 

8B 

CO 

LDA 

$C08B,X 

BD7F- 

66 

35 


ROR 

$35 

BD81- 

28 



PLP 


BD82- 

08 



PHP 


BD83- 

DO 

OB 


BNE 

$BD90 

BD85- 

AO 

07 


LDY 

#$07 

BD87- 

20 

00 

BA 

JSR 

$BAOO 

BD8A- 

88 



DEY 


BD8B- 

DO 

FA 


BNE 

$BD87 

BD8D- 

AE 

F8 

05 

LDX 

$05F8 

BD90- 

AO 

04 


LDY 

#$04 

BD92- 

B1 

48 


LDA 

($48),Y 

BD94- 

20 

5A 

BE 

JSR 

$BE5A 

BD97- 

28 



PLP 


BD98- 

DO 

11 


BNE 

$BDAB 

BD9A- 

A4 

47 


LDY 

$47 

BD9C- 

10 

OD 


BPL 

$BDAB 

BD9E- 

AO 

12 


LDY 

#$12 

BDA0- 

88 



DEY 


BDA1- 

DO 

FD 


BNE 

$BDAO 

BDA3- 

E6 

46 


INC 

$46 

BDA5- 

DO 

F7 


BNE 

$BD9E 

BDA7- 

E6 

47 


INC 

$47 

BDA9- 

DO 

F3 


BNE 

$BD9E 

BDAB- 

AO 

OC 


LDY 

#$0C 

BDAD- 

B1 

48 


LDA 

($48),Y 

BDAF- 

FO 

5A 


BEQ 

$BEOB 

.BDB1- 

C9 

04 


CMP 

#$04 

BDB3- 

FO 

58 


BEQ 

$BEOD 

BDB5- 

6A 



ROR 


BDB6- 

08 



PHP 


BDB7- 

BO 

03 


BCS 

$BDBC 

BDB9- 

20 

00 

B8 

JSR 

$B800 

BDBC- 

AO 

30 


LDY 

#$30 

BDBE- 

8C 

78 

05 

STY 

$0578 

BDC1- 

AE 

F8 

05 

LDX 

$05F8 

BDC4- 

20 

44 

B9 

JSR 

$B944 

BDC7- 

90 

24 


BCC 

$BDED 

BDC9- 

CE 

78 

05 

DEC 

$0578 

BDCC- 

10 

F3 


BPL 

$BDC1 

BDCE- 

AD 

78 

04 

LDA 

$0478 

BDD1- 

48 



PHA 


BDD2- 

A9 

60 


LDA 

#$60 

BDD4- 

20 

95 

BE 

JSR 

0BE95 

BDD7- 

CE 

F8 

06 

DEC 

*06F8 

BDDA- 

FO 

28 


BEQ 

$BE04 


DCT naar $3C/D 
Motor on time $D8 


Is drive veranderd ? 

Nee. 

Anders resultaat omzetten. 


Kies juiste drive. 


l=s drive 1, 0= drive 2 
Save hem als hi-bit van $35 


Drive is aan. 

Wacht anders tot drive condensator 
ontlaa dt. 


Naar welke track? 


TRVTRK Subroutine 

Welke commando code vigeert? 


Moet de disk geinitialiseerd? 


Voor Write is eerst naar 
Prenibble. 

Controleer het verloop van 
de handelingen. 

READ was goed. 

Werk teller bij en probeer 
opnieuw. 


Oh, oh drive error! 





BDDC- 

A9 

04 


LDA 

#$04 

BDDE- 

8D 

F8 

04 

STA 

$04F8 

BDE1- 

A9 

00 


LDA 

#$00 

BDE3- 

20 

5A 

BE 

JSR 

$BE5A 

BDE6- 

68 



PLA 


BDE7- 

20 

5A 

BE 

JSR 

$BE5A 

BDEA- 

4C 

BC 

BD 

JMP 

$BDBC 

BDED- 

A4 

2E 


LDY 

$2E 

BDEF- 

CC 

78 

04 

CPY 

$0478 

BDF2- 

F0 

1C 


BEQ 

$BE10 

BDF4- 

AD 

78 

04 

LDA 

$0478 

BDF7- 

48 



PHA 


BDF8- 

98 



TYA 


BDF9- 

20 

95 

BE 

JSR 

$BE95 

BDFC- 

68 



PLA 


BDFD- 

CE 

F8 

04 

DEC 

$04F8 

BE00- 

DO 

E5 


BNE 

$BDE7 

BE02- 

F0 

CA 


BEQ 

$BDCE 

BE04- 

68 



PLA 


BE05- 

A9 

40 


LDA 

#$40 

BE07- 

28 



PLP 


BE08- 

4C 

48 

BE 

JMP 

$BE48 

BEOB- 

F0 

39 


BEQ 

$BE46 

BEOD- 

4C 

AF 

BE 

JMP 

$BEAF 

BE10- 

A0 

03 


LDY 

#$03 

BE12- 

B1 

48 


LDA 

($48),Y 

BE14- 

48 



PHA 


BE15- 

A5 

2F 


LDA 

$2F 

BE17- 

A0 

OE 


LDY 

#$0E 

BE19- 

91 

48 


STA 

($48),Y 

BE1B- 

68 



PLA 


BE1C- 

F0 

08 


BEQ 

$BE26 

BE1E- 

C5 

2F 


CMP 

$2F 

BE20- 

F0 

04 


BEQ 

$BE26 

BE22- 

A9 

20 


LDA 

#$20 

BE24- 

DO 

El 


BNE 

$BE07 

BE26- 

AO 

05 


LDY 

#$05 

BE28- 

B1 

48 


LDA 

($48),Y 

BE2A- 

A8 



TAY 


BE2B- 

B9 

B8 

BF 

LDA 

$BFB8,Y 

BE2E- 

C5 

2D 


CMP 

$2D 

BE30- 

DO 

97 


BNE 

$BDC9 

BE32- 

28 



PLP 


BE33- 

90 

1C 


BCC 

$BE51 

BE35- 

20 

DC 

B8 

JSR 

$B8DC 

BE38- 

08 



PHP 


BE39- 

BO 

8E 


BCS 

$BDC9 

BE3B- 

28 



PLP 


BE3C- 

A2 

00 


LDX 

#$00 

BE3E- 

86 

26 


STX 

$26 

BE40- 

20 

C2 

B8 

JSR 

$B8C2 

BE43- 

AE 

F8 

05 

LDX 

$05F8 

BE46- 

18 



CLC 


BE47- 

24 

38 


BIT 

$38 

BE49- 

AO 

OD 


LDY 

#$0D 

BE4B- 

91 

48 


STA 

($48),Y 

BE4D- 

BD 

88 

CO 

LDA 

$C088,X 

BE50- 

60 



RTS 


BE51- 

20 

2A 

B8 

JSR 

$B82A 

BE54- 

90 

FO 


BCC 

$BE46 

BE56- 

A9 

10 


LDA 

#$10 

BE58- 

BO 

EE 


BCS 

$BE48 


Verifieer juiste track 
OK! 

Anders moeten wij corrigeren. 


Maak status en stack reg. schoon 
en set drive error in Acc $40 

Foutje wegwerken! 

Naar INIT afhandeling 
Controleer gevonden volume 
t.o.v. verwacht volume. 

$BE10: 4C 26 BE kan ook, dan 
geen Vol check. 


Geen volume, dan geen fout. 
Volume mismatch code ? 

Dat was jammer. 

Is dit de juiste sector ? 


Naar sector interleaving tabel 


Is de sector juist gekozen, en 
is de code ”schrijven"? 

Anders moet er data gelezen worden 


Is "read” goed verlopen, 

Exit via postnibble 
Skip carry 

in BE48 - sla foutafh. over. 

A heeft returncode 
Motor af. 


Schrijf een sector **** 

Gedaan en goed, dan exit 

Was de diskette Write Protected?! 

3a. 
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BE5A- 

48 


PHA 


BE5B- 

AO 

01 

LDY 

#$01 

BE5D- 

B1 

3C 

LDA 

($30, Y 

BE5F- 

6A 


ROR 


BE60- 

68 


PLA 


BE61- 

90 

08 

BCC 

$BE6B 

BE63- 

0A 


ASL 


BE64- 

20 

6B BE 

JSR 

$BE6B 

BE67- 

4E 

78 04 

LSR 

$0478 

BE6A- 

60 


RTS 


BE6B- 

85 

2A 

STA 

$2A 

BE6D- 

20 

8E BE 

JSR 

$BE8E 

BE70- 

B9 

78 04 

LDA 

$0478,Y 

BE73- 

24 

35 

BIT 

$35 

BE75- 

30 

03 

BMI 

$BE7A 

BE77- 

B9 

F8 04 

LDA 

$04F8,Y 

BE7A- 

8D 

78 04 

STA 

$0478 

BE7D- 

A5 

2A 

LDA 

$2A 

BE7F- 

24 

35 

BIT 

$35 

BE81- 

30 

05 

BMI 

$BE88 

BE83- 

99 

F8 04 

STA 

$04F8,Y 

BE86- 

10 

03 

BPL 

$BE8B 

BE88- 

99 

78 04 

STA 

$0478,Y 

BE8B- 

4C 

AO B9 

JMP 

$B9A0 

BE8E- 

8A 


TXA 


BE8F- 

4A 


LSR 


BE90- 

4A 


LSR 


BE91- 

4A 


LSR 


BE92- 

4A 


LSR 


BE93- 

A8 


TAY 


BE94- 

60 


RTS 


BE95- 

48 


PHA 


BE96- 

AO 

02 

LDY 

#$02 

BE98- 

B1 

48 

LDA 

($48),Y 

BE9A- 

6A 


RDR 


BE9B- 

66 

35 

ROR 

$35 

BE9D- 

20 

8E BE 

JSR 

$BE8E 

BEAO- 

68 


PLA 


BEA1- 

OA 


ASL 


BEA2- 

24 

35 

BIT 

$35 

BEA4- 

30 

05 

BMI 

$BEAB 

BEA6- 

99 

F8 04 

STA 

$04F8,Y 

BEA9- 

10 

03 

BPL 

$BEAE 

BEAB- 

99 

78 04 

STA 

$0478,Y 

BEAE- 

60 


RTS 


BEAF- 

AO 

03 

LDY 

#$03 

BEB1- 

B1 

48 

LDA 

($48),Y 

BEB3- 

85 

41 

STA 

$41 

BEB5- 

A9 

AA 

LDA 

#$AA 

BEB7- 

85 

3E 

STA 

$3E 

BEB9- 

AO 

56 

LDY 

#$56 

BEBB- 

A9 

00 

LDA 

#$00 

BEBD- 

85 

44 

STA 

$44 

BEBF- 

99 

FF BB 

STA 

$BBFF,Y 

BEC2- 

88 


DEY 


BEC3- 

DO 

FA 

BNE 

$BEBF 

BEC5- 

99 

00 BB 

STA 

$BBOO,Y 

BEC8- 

88 


DEY 


BEC9- 

DO 

FA 

BNE 

$BEC5 

BECB- 

A9 

50 

LDA 

#$50 

BECD- 

20 

95 BE 

JSR 

$BE95 

BEDO- 

A9 

28 

LDA 

#$28 


MYSEEK subroutine 
Nodig voor SEEKABS 

Bepaalt het aantal fasen per track 
Het is mogelijk met verschillende 
fasen te werken. (Beveiliging ) 
Knoei hier liever niet aan! 


Slot info van X naar Y 


Set track 


INIT Afhandelings Routine 


Haal volumenummer uit IOB 
en maak de buffers 0 


Aantal syncbytes tussen sect. 
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BED2- 

85 45 

STA 

$45 

BED4- 

A5 44 

LDA 

$44 

BED6- 

20 5A BE 

JSR 

$BE5A 

BED9- 

20 OD BF 

JSR 

$BFOD 

BEDC- 

A9 08 

LDA 

#$08 

BEDE- 

BO 24 

BCS 

$BF04 

BEEO- 

A9 30 

LDA 

#$30 

BEE2- 

8D 78 05 

STA 

$0578 

BEE5- 

38 

SEC 


BEE6- 

CE 78 05 

DEC 

$0578 

BEE9- 

FO 19 

BEQ 

$BF04 

BEEB- 

20 44 B9 

JSR 

$B944 

BEEE- 

BO F5 

BCS 

$BEE5 

BEFO- 

A5 2D 

LDA 

$2D 

BEF2- 

DO FI 

BNE 

$BEE5 

BEF4- 

20 DC B8 

JSR 

$B8DC 

BEF7- 

BO EC 

BCS 

$BEE5 

BEF9- 

E6 44 

INC 

$44 

BEFB- 

A5 44 

LDA 

$44 

BEFD- 

/ C9 23 

CMP 

#$23 

BEFF- 

90 D3 

BCC 

$BED4 

BFOl- 

18 

CLC 


BF02- 

90 05 

BCC 

$BF09 

BF04- 

AO OD 

LDY 

#$0D 

BF06- 

91 48 

STA 

($48),Y 

BF08- 

38 

SEC 


BF09- 

BD 88 CO 

LDA 

$C088,X 

BFOC- 

60 

RTS 


BFOD- 

A9 00 

LDA 

#$00 

BFOF- 

85 3F 

STA 

$3F 

BF11- 

AO 80 

LDY 

#$80 

BF13- 

DO 02 

BNE 

$BF17 

BF15- 

A4 45 

LDY 

$45 

BF17- 

20 56 BC 

JSR 

$BC56 

BF1A- 

BO 6B 

BCS 

$BF87 

BF1C- 

20 2A B8 

JSR 

$B82A 

BF1F- 

BO 66 

BCS 

$BF87 

BF21- 

E6 3F 

INC 

$3F 

BF23- 

A5 3F 

LDA 

$3F 

BF25- 

C9 10 

CMP 

#$10 

BF27- 

90 EC 

BCC 

$BF15 

BF29- 

AO OF 

LDY 

#$0F 

BF2B- 

84 3F 

STY 

$3F 

BF2D- 

A9 30 

LDA 

#$30 

BF2F- 

8D 78 05 

STA 

$0578 

BF32- 

99 A8 BF 

STA 

$BFA8,Y 

BF35- 

88 

DEY 


BF36- 

10 FA 

BPL 

$BF32 

BF38- 

A4 45 

LDY 

$45 

BF3A- 

20 87 BF 

JSR 

$BF87 

BF3D- 

20 87 BF 

JSR 

$BF87 

BF40- 

20 87 BF 

JSR 

$BF87 

BF43- 

48 

PHA 


BF44- 

68 

PLA 


BF45- 

EA 

NOP 


BF46- 

88 

DEY 


BF47- 

DO FI 

BNE 

$BF3A 

BF49- 

20 44 B9 

JSR 

$B944 

BF4C- 

BO 23 

BCS 

$BF71 

BF4E- 

A5 2D 

LDA 

$2D 

BF50- 

FO 15 

BEQ 

$BF67 

BF52- 

A9 10 

LDA 

#$10 


Geef 48 retries na INIT 
Controleer track 0 


Doe 35 tracks. Kan aangepast 
worden tot 36, soms meer ! Zie 
ook elders. 


Formatteer de track 
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BF54- 

C5 45 

CMP 

♦45 

BF56- 

A5 45 

LDA 

♦45 

BF58- 

E9 01 

SBC 

#♦01 

BF5A- 

85 45 

STA 

♦45 

BF5C- 

C9 05 

CMP 

#♦05 

BF5E- 

BO 11 

BCS 

♦BF71 

BF60- 

38 

SEC 


BF61- 

60 

RTS 


BF62- 

20 44 B9 

JSR 

♦B944 

BF65- 

B0 05 

BCS 

♦BF6C 

BF67- 

20 DC B8 

JSR 

♦BBDC 

BF6A- 

90 1C 

BCC 

♦BF88 

BF6C- 

CE 78 05 

DEC 

♦0578 

BF6F- 

DO FI 

BNE 

♦BF62 

BF71- 

20 44 B9 

JSR 

♦B944 

BF74- 

BO OB 

BCS 

♦BF81 

BF76- 

A5 2D 

LDA 

♦2D 

BF78- 

C9 OF 

CMP 

#^0F 

BF7A- 

DO 05 

BNE 

♦BF81 

BF7C- 

20 DC B8 

JSR 

♦B8DC 

BF7F- 

90 8C 

BCC 

♦BFOD 

BF81- 

CE 78 05 

DEC 

♦0578 

BF84- 

DO EB 

BNE 

♦BF71 

BF86- 

38 

SEC 


BF87- 

60 

RTS 


BF88- 

A4 2D 

LDY 

♦2D 

BF8A- 

B9 A8 BF 

LDA 

♦BFA8,Y 

BF8D- 

30 DD 

BMI 

♦BF6C 

BF8F- 

A9 FF 

LDA 

#^FF 

BF91- 

99 A8 BF 

STA 

♦BFA8,Y 

BF94- 

C6 3F 

DEC 

♦3F 

BF96- 

10 CA 

BPL 

♦BF62 

BF98- 

A5 44 

LDA 

♦44 

BF9A- 

DO OA 

BNE 

♦BFA6 

BF9C- 

A5 45 

LDA 

♦45 

BF9E- 

C9 10 

CMP 

#♦10 

BFAO- 

90 E5 

BCC 

♦BF87 

BFA2- 

C6 45 

DEC 

♦45 

BFA4- 

C6 45 

DEC 

♦45 

BFA6- 

18 

CLC 


BFA7- 

60 

RTS 


BFA8- 

FF 

??? 


BFA9- 

FF 

??? 


BFAA- 

FF 

??? 


BFAB- 

FF 

??? 


BFAC- 

FF 

??? 


BFAD- 

FF 

??? 


BFAE- 

FF 

??? 


BFAF- 

FF 

??? 


BFBO- 

FF 

??? 


BFB1- 

FF 

??? 


BFB2- 

FF 

??? 


BFB3- 

FF 

??? 


BFB4- 

FF 

??? 


BFB5- 

FF 

??? 


BFB6- 

FF 

??? 


BFB7- 

FF 

??? 


BFB8- 

00 

BRK 


BFB9- 

OD OB 09 

ORA 

♦090B 

BFBC- 

07 

??? 


BFBD- 

05 03 

ORA 

♦03 

BFBF- 

01 OE 

ORA 

(♦OE,X) 


Verifieer de track 


Sector maproutine. 

Lees 16 sectoren van juist 
geformateerde track. 


Sector Map Routine 
Markeert de sector Init Map 
na verifiering van een sector. 


Sector Init Map 

Eerst $30, na formatteren $FF 


Sector Interleaving Tabel 
Verweeft de sectoren opdat snelle 
data transfer mogelijk is. 


9-104 








BFC1- 

OC 


??? 


BFC2- 

OA 


ASL 


BFC3- 

08 


PHP 


BFC4- 

06 04 


ASL 

$04 

BFC6- 

02 


??? 


BFC7- 

OF 


??? 


BFC8- 

20 93 

FE 

JSR 

$FE93 

BFCB- 

AD 81 

CO 

LDA 

$C081 

BFCE- 

AD 81 

CO 

LDA 

$C081 

BFD1- 

A9 00 


LDA 

#$00 

BFD3- 

8D 00 

EO 

STA 

$E000 

BFD6- 

4C 44 

B7 

JMP 

$B744 

BFD9- 

00 


BRK 


BFDA- 

00 


BRK 


BFDB- 

00 


BRK 


BFDC- 

8D 63 

AA 

STA 

$AA63 

BFDF- 

8D 70 

AA 

STA 

$AA70 

BFE2- 

8D 71 

AA 

STA 

$AA71 

BFE5- 

60 


RTS 


BFE6- 

20 5B 

A7 

JSR 

$A75B 

BFE9- 

8C B7 

AA 

STY 

$AAB7 

BFEC- 

60 


RTS 


BFED- 

20 7E 

AE 

JSR 

$AE7E 

BFF0- 

AE 9B 

B3 

LDX 

$B39B 

BFF3- 

9A 


TXS 


BFF4- 

20 16 

A3 

JSR 

$A316 

BFF7- 

BA 


TSX 


BFF8- 

8E 9B 

B3 

STX 

$B39B 

BFFB- 

A9 09 


LDA 

#$09 

BFFD- 

4C 85 

B3 

JMP 

$B385 

COOO- 

13 


??? 


COOl- 

13 


??? 


C002- 

D3 


??? 


C003- 

D3 


??? 


C004- 

93 


??? 


C005- 

53 


??? 



Patches*** 
Set video 


Zeer ongelukkige patch, die 
telkens opnieuw de Language 
laat laden. BFD3: EA EA EA 
vri j 


Zie A0E2. 

Drie vervalwaarden. 


Van A6D5• 


Van B377 

Save f.m. werkruimte. 
Restore stack 
Close files 

Save stack 

Run niet onderbroken. 
DISK FULL ERROR 


-einde DISASSM/82/vK- 
A$9D00/84 

DOS A$ 9600 L$2A00 V3 


Card 
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CONNECTOR LOCATIONS 


HOOFDSTUK 


INTERFACING EN I/O 


1. Overzicht 


Het. moederbord van de APPLE II is voorzien van een aantal 
connectors, die verbinding met andere hardware mogelijk 
maakt. In figuur A is de plaats van deze connectors 
aangegeven. 
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APPLE II PC BOARD 

TOP VIEW |— CASSETTE DATA IN 

I-CASSETTE DATA OUT 


















































































2. Video 


Een van de meest prominente hardware-onderdelen bij de 
APPLE is de videomonitor. De video output K14, een 
standaard RCA phone jack, levert een signaal, dat 
geschikt is voor elke "close circuit" of "studio" 
televisie-monitor. Een monitor is een televisie toestel 
zonder ontvangstinrichting. Voor aansluiting van de APPLE 
II op een gewoon TV-ontvangsttoestel is het noodzakelijk, 
dat een RF-modulator wordt tussengeschakeld. Daarmee kan 
het signaal direkt worden toegevoerd aan de 
antenne-ingang. De modulator wordt aangesloten op de 
speciale video-pin, die zich vanaf het keyboard gezien, 
juist rechts boven de game-I/0 bevindt. Voor toepassing 
van een k1eurentelevisie zijn verdergaande hardware 
applikaties gewenst. Het door de APPLE II aangeboden 
signaal is NTSC compatibel positief composite video. 
Zwartniveau .75 Volt, witniveau 2.0 Volt, sync tip 0 
Volt. Niet beschermd tegen korts1uiting . Het is daarom 
nodig een NTSC monitor te gebruiken, waarbij het 
-afhankelijk van de versie van het moederbord- bovendien 
voor kan komen, dat het osci 1 latorkri stal van de computer 
moet worden aangepast. Een acceptabel alternatief is een 
z.g. PAL-k1eurkaart, die in feite een kleur RF-modulator 
is. Men moet evenwel bedenken, dat de contourscherpte en 
kleurzuiverheid van deze applikatie te wensen overlaat. 
Beter is een z.g. RGB-kaart, die uitsluitend toegepast 
kan worden met PAL/SECAM k1eurmonitoren, of een moderne 
kleurentelevisie met video ingang. Je verliest met deze 
kaarten en de speciale modulator een Slot. 


AUXILIARY VIDEO OUTPUT CONNECTOR 


PINOUT 


□ 


□ 


□ 


□ 


+ 12V 
-5V 
VIDEO 
GND 


■o 

s- 

eo 

O 

CO 

o 

Cl 

H- 

O 

CD 

CD 

T3 

LxJ 


Right Edge of PC Board 
LOCATION J14B 
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Er is op het moederbord nog een derde video-aansluiting 
te vinden. Deze bestaat uit een Molex KK100 aansluiting 
(J14b). 


extra video 
connectors 

output 

J1 4b 

connector met vier square-pin 

p i n 

naam 

omschrijving 

1 

massa 

0 Volt syteem massaleiding 

z 

v i deo 

NTSC compatibel, positief 
composite video. 

DC gekoppelde emittervolger-uitgang 
niet korts1uitvast. 

Sync tip 0 Volt zwartniv. 0.75 V. 
en witniv. 2.0 V. over 470 ohm. 
Niveau niet instelbaar. 

3 

power+ 

+12 volt uit voeding 

4 

power- 

-5 volt uit voeding 


Op het moederbord bevinden zich nabij de video-pin 2 
potmeters, waarmee kleur- en videosignaal niveau's kunnen 
worden ingesteld binnen een range van 0 tot 1 Volt. 
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3. Voeding 


De APPLE II beschikt over een z.g. switching power 
supply. Dit type voeding heeft het voordeel niet te zijn 
uitgerust met veel warmte dissiperende transformatoren. 

De voeding is voorzien van een netfilter. Storingen uit 
het lichtnet dringen niet door in de computer. Om dit 
goed te laten functioneren, alsmede voor je eigen 
veiligheid, MOET je een stekkervoorziening met randaarde 
gebruiken. De voedingseenheid mag uitsluitend door 
deskundige technici worden geopend. In de voeding komen 
hoge spanningen voor. Er is een handige voorziening 
aangebracht, om kortsluitingen te onderkennen en de 
voeding te beschermen. 

in verband met de grote hoeveelheid periferals voor de 
APPLE Interface Slots is het raadzaam de 
max imum-be1asting in het oog te houden. Deze mag voor 
alle toegevoegde interfacekaarten niet meer bedragen dan: 


PINOUT 


Figure 5 POWER CONNECTOR 
TOP VIEW 

( Toward Right Side of PC Board) 


(BLUE/WHITE WIRE) -12V 
(ORANGE WIRE) +5V 
(BUCK WIRE) GND 



1.75 A voor +12 V 
2.5 A voor + 5 V 
250 mA voor - 5 V 
200 mA voor -12 V 


-5V (BLUE WIRE) 

+ 12V (ORANGE/WHITE WIRE) 
GND (BUCK WIRE) 


LOCATION K1 


De werktemperatuur voor de voeding is ca. 60 graden 
Ce1c i us . 

Wanneer de APPLE door veel interfacekaarten wordt 
aangesproken, is het zeer aan te bevelen een speciale 
ventilator in te bouwen. Deze ventilator dient bij 
voorkeur op 220 V te zijn aangesloten. 

Wordt de binnentemperatuur te hoog, dan kan de 
bedrijfszekerheid van het systeem in het gedrang komen. 
Ook bij een buitenlucht temperatuur van meer dan 25 
graden Celcius kunnen zich problemen voordoen, wanneer 
gewerkt wordt met een aanzienlijke interface- belasting 
in een slecht circulerende omgeving. 

De verbinding tussen voeding en moederbord is een 
blokconnector op lokatie K1. 
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4. Cassetterecorder 


Je kunt een eenvoudige cassetterecorder met 
(automatische) opname regeling gebruiken als (extra) 
ops 1 agmediurn voor programma's en gegevens. Er mag geen 
gebruik worden gemaakt van de z.g. lijn- ingang van de 
cassetterecorder, maar van de microfooningang en de 
koptelefoonuitgang. 

Achter de computer bevindt zich naast de video 
aansluiting een tweetal cassette data pluggen. 

"Cassette Data In" (K12) moet worden aangesloten op de 
koptelefoon of monitoruitgang van de recorder. 

V in= 1 V pp nominaal Z in= 12 KOhm 
"Cassette Data Out" (K13) aansluiten op de 
mi crofooningang. 

V in= 25mV in 100 Ohm Z out= 100 Ohm 

Het gebruik van de cassetterecorder vereist enige 
handigheid. Als de opname te zwak is, zal de signaal-ruis 
verhouding bij de weer- gave te laag zijn. Is de opname 
te sterk, dan volgt daaruit enige vervorming van het 
signaal. Luister daarom eens naar het geluid van je 
APPLE. Probeer uit te vinden, wat de ideale opname en 
weergave stand is van de recorder. Zet om te beginnen het 
opnameniveau op 60% met zo mogelijk 80% hoog bij. 

Plaats een C60 cassettebandje in de recorder. Afhankelijk 
van de opname moet je LOAD, RECALL, of *R tikken. Zie de 
bespreking van de beschikbare softwaretechnieken. Start 
de recorder en druk Return. Het volgende zal dan gebeuren: 


a) tweemaal een "biep" toontje en de cursor keert terug. 

b) foutmelding 7SYNTAX ERROR volgt 

c) er gebeurt niets - cursor blijft weg 

d) een "biep" en daarna niets meer 

e) er verschijnt ERR, soms gevolgd door een "biep" 


De onder a) genoemde situatie is normaal. Spoel het 
bandje na het gebruik weer terug. 

De onder b) genoemde situatie duidt erop, dat voor het 
begin van de inleidende fluittoon werd i ngeschakeId. 


Begin opnieuw. 

De onder c) en d-) vermelde toestand duidt op een te laag 
niveau. Los de* "hang "-toestand op door Reset. 

De onder e) genoemde situatie ontstaat door een te hoog 
niveau. Zet de. volumeknop iets minder hoog en begin 
opnieuw. 


Als het laden na herhaalde pogingen, zonodig met een kort 
Applesoft programmaatje, maar niet wil lukken ziin 
daarvoor verschi11ende oorzaken aan te wijzen! Soms is 
het programme te groot (voor b.v. 16K computers). 

Mogelijk is L0MEM: of HIMEM: zodanig ingesteld, dat het 
programma met ingeladen kan worden. Tenslotte kunnen 
verkeerd afgestelde, of versleten en vervuilde koppen van 
de recorder oorzaak zijn van veei moei 1 ijkheden. Ook kan 
de gebruikte tape minder geschikt zijn (C90 type). 
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Het meest voorkomend probleem is de onbewuste 
verwisseling van de opname en weergave plugjes. Lukt het 
desondanks niet, neem dan gerust kontakt op met uw 
computerleverancier. Zelden ligt het probleem aan uw 
APPLE! 
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5. Keyboard 


Het APPLE toetsenbord (keyboard) is een QWERTY 
configuratie , gegroepeerd rond een MM5740 monolitische 
keyboard decoder. De inputlijnen van deze ROM zijn 
verbonden met de keyboard schakelmatrix. Via een keyboard 
connector is het toetsenbord met het moederbord 
verbonden. De keyboard decoder bekijkt met zeer hoge 
snelheid de keyboardmatrix, waarop de toetsen zijn 
gemonteerd. Wordt een toets ingedrukt, dan ontstaat een 
gecodeerd signaal. De REPT toets is verbonden met een 555 
timerchip op het keyboard. Door de weerstand van 220 KOhm 
(R3) te verlagen, ontstaat een hogere REPT snelheid. De 
lijnen 5-7, 10-13 van de keyboard connector vormen de 
ASCII keyboard data input in 7 bits formaat. 


Naast de keyboard connector op het moederbord bevindt 
zich de z.g. karakter generator. Dit is een chip van het 
type 2513, die in moederbord versie 7 ook met ROM SPCL 
wordt aangeduid. Deze ROM is er de oorzaak van, dat geen 
kleine letters door de APPLE II worden afgebeeld. Het 
behoeft geen betoog, dat m.n. de ROM SPCL (pin compatibel 
met een EPROM 2716), door velen is verbeterd! De auteurs 
van dit boek kunnen belangstellenden hiermee eventueel 
h e 1 p e n . KEYBOARD CONNECTOR 


TOP VIEW 

( Front Edge of PC Board) 


+5V 1 • 


16 N.C. 


STROBE 2 
RESET 3 


15 -12V 


N.C. 4 
B6 5 
B5 6 
B7" 7 
GND* 8 


14 N.C. 
13 B2 
12 B1 
11 B4 
10 B3 
9 N.C. 


LOCATION A7 
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6. Game I/O 


Op positie J14 bevindt zich de z.g. Spelletjes- of Game 
I/O connector. Deze kan worden gebruikt als aansluiting 
voor kleine lampjes, LED's, lichtpen, game-paddles etc. 
De connector omvat een 1b pins IC socket, waarvan de 
pennen de volgende werking hebben : 


GAME I/O CONNECTOR 
( Front e?7pi Board 


+5V 

1 

• 

16 

N.C. 

SWO 

2 


15 

ANO 

SW1 

3 


14 

AN1 

SW2 

4 


13 

AN2 

C040 STB 

5 


12 

AN3 

POLO 

6 


11 

PDL3 

PDL2 

7 


10 

PDL1 

GND 

8 


9 

N.C. 


LOCATION J14 


AN 0-AN 3 4 outputlijnen. Elke lijn is een 74LS TTL 

output. 

Er zijn 8 adressen voor besturing: C058/C05F 


C040 STB 


GND 

NC 

PDL 0-PDL 3 


SW O-SW 2 

+ 5 V 


Strobe output. Eeveneens een 74LS TTL output 
De lijn gaat laag gedurende ph.2 van 
READ/WRITE naar de adressen C040/C04F 
Massa. 0 Volt aan voeding 
niet aangesloten (not connected) 

Paddle control lijnen. Hierop kan een 
variabe1e 

weerstand van 150K0hm worden aangesloten. De 
andere zijde van de weerstand ligt aan +5 
Volt. Een ingebouwde weerstand van 100 Ohm 
begrenst de stroom. Aflezing door PDL 
commando. 

Switch inputs. Elke lijn is een 74LS TTL 
ingang. 

De lijnen zijn te testen via adressen C061/63 
of C069/6B. Pushbutton aansluiting. 

Positieve spanning van + 5 Volt; max. 100 mA. 
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7. Geluid 


Op het moederbord is een connector aanwezig voor 
aansluiting van een 1uidspreker. In de APPLE II is een 
kleine LS aangebracht, die aangesproken kan worden via 
adres -16336/C030 . De aandrijving geschiedt door een 
Darlington circuit. De lijn levert 0.5 Watt aan 8 Ohm. De 
speakerconnector bevat 2 aansluitingen: 


SPEAKER CONNECTOR 


PINOUT 


cr 


o 


a; 

cn 

■a ~a 



uj 


+-> o 
c: cd 



Right Edge of PC Board 


LOCATION B14A 








8. De Periferal Connectors (of Slots) 


Op het APPLE PC-bord zijn 8 periferal connectors 
opgenomen, die men wel aanduidt met het woord "Slot". Ze 
zijn bedoeld om op eenvoudige wijze accessoires met de 
APPLE computer te verbinden. Daartoe worden gerekend 
printers, diskdrives, diverse interface 
besturingskaarten. De Slots zijn 50 pins "card edge" 
connectors van het type Winchester 2HW25C0-111. De 
betekenis van de pennen is als volgt: 


Pin 1 Select I/O Voor elk slot zijn 16 adressen 
gereserveerd. 

Wordt daarop gelezen of geschreven, dan gaat 

pin 41 Gedurende ph 2. 500 nS laag. Er kunnen 

max. b standaard TTL load worden gedreven. 

Pin 2/17 A0/A15 16 bits adresbus. De adressen van de 

6502 

processor zijn 80 nS na ph 2. stabiel. Elke 
lijn kan 5 LS TTL loads sturen. 

Pin 18 R/WR Gebufferde Read Write lijn van de 

6502. Isde lijn hoog, dan is de Read cyclus aan 
de gang. Max. 16 TTL loads. 

Pin 19 SYNC Uitsluitend op Slot 7 !!! Gekoppeld 

aan de video-sync timing generator. 

Pin 20 I/O STR In/Out Strobe. Wordt laag gedurende 
ph 2. bij een Read/Write op een van de adressen 
C800-CFFF. Max. 4 TTL loads 

Pin 21 RDY Ready lijn naar 6502. 

Deze lijn mag alieen van niveau veranderen 
gedurende ph 1. Gaat de lijn laag, dan stopt 
de Mpu bij de volgende Read cyclus. Deze lijn 
heeft een 3K0hm pull up weerstand naar +5 V. 
en moet gedreven worden met een open collector 
uitgang. 

Pin 22 DMA Direct Memory Access daisy chain 

output Max. 4 TTL loads. Lijn wordt hoog gehouden 
door een 3 KOhm weerstand aan +5 V. 

Pin 23 INT OUT Interrupt daisy chain naar device met 

lagere prioriteit. Max. 4 TTL loads. 

Meestal gecombineerd met Pin 28 INT IN 

Pin 24 DMA OUT DMA daisy chain output naar device met 
lagere prioriteit. Meestal gecombineerd met 

Pin 22 DMA. 

Pin 25 +5 +5 Volt van de power supply. Max. 500 

MA voor alle periferals. 

Pin 26 GND Massa lijn. 0 Volt aan voeding. 

Pin 27 DMA IN DMA daisy chain input voor device met 

hogere prioriteit. Combineert met Pin 24. 

Pin 28 INT IN Interrupt daisy chain voor device met 

hogere prioriteit. Combineert met Pin 23. 

Pin 29 NMI Non Maskable Interrupt lijn naar 6502. 

Wordt deze lijn laag, dan ontstaat een afhan- 
delingsroutine met een JMP naar $3FB. De lijn 
heeft een 3 KOhm pull up weerstand aan +5 V. 
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IRQ Interrupt Request lijn naar 6502. 

Wordt de lijn laag, dan begint alleen een 
interrupt afhandeling indien de I-flag niet 
geset is. In $3FE/$3FF moet het adres 
aanwezig zijn voor de afhandelingsroutine. 

RES Reset lijn vanaf keyboard. Kan 2 MOS 

loads sturen per slot. 

INH Inhibit lijn. Trekt een device deze 

lijn laag, dan worden alle ROM's op het moederbord 
uitgeschakeld. Lijn blijft hoog over 3 KOhm 
weerstand aan +5 Volt. 

-12 -12 Volt van voeding. 

-5 - 5 Volt van voeding. 

COLOR Uitsluitend Slot 7 !!! Gekoppeld aan 

de 3.5 MHz color reference video generator. 

7M / MHz klok. Max. 2 LS TTL loads 

Q3 2 MHz klok, asymmetrisch . 

phi. Phase 1 klok. 

USER 1 Normaal niet in gebruik. Indien laag, 

dan wordt alle I/O adresdecoding opgehouden. 
phO. Phase 0 klok. 

DEV SEL Zie pin 1. Laag wanneer de adresbus 

een adres bevat tussen $C0s0 en $C0sF. 
s = Slot + $8. 

49 DO/7 Databus. Dit is een 8 bit systeem. 

+12 Volt van voeding. 



Pin 30 

Pin 31 
Pin 32 


Pin 33 
Pin 34 
Pin 35 

Pin 36 
Pin 37 
Pin 38 
Pin 39 

Pin 40 
Pin 41 


Pin 42/ 
Pin 50 
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PERIPHERAL CONNECTORS 

(EIGHT OF EACH) 


TOP VIEW 

pinout (Back Edge of PC Board) 











c 

) 





f - 


> 



GND 

26 

cz 



ZD 

25 

+5V 

DMA IN 

27 

z 


ZJ 

24 

DMA OUT 

INT IN 

28 

c= 


z 

23 

INT OUT 

NMI 

29 

cz 


z 

22 

DMA 

IRQ 

30 

cz 


z 

21 

RDY 

RES 

31 

cz 


z 

20 

I/O STROBE 

INH 

32 

cz 


z 

19 

N.C. 

-12V 

33 

cz 


z 

18 

R/W 

-5V 

34 

cz 


z 

17 

A15 

N.C. 

35 

cz 


z 

16 

A14 

7M 

36 

cz 



z 

15 

A13 

Q3 

37 

cq 



z 

14 

A12 

<t>1 

38 

cz 



z 

13 

All 

USER 1 

39 

l_ 



z 

12 

A10 

4>0 

40 

cz 



z 

11 

A9 

DEVICE SELECT 

41 

cz 


z 

10 

A8 

D7 

42 

cz 


1 

9 

A7 

D6 

43 

cz 


z 

8 

A6 

D5 

44 

r~ 


z 

7 

A5 

D4 

45 

cz 


z 

6 

A4 

D3 

46 

cz 


z 

5 

A3 

D2 

47 

cz 


z 

4 

A2 

D1 

48 

cz 


z 

3 

A1 

DO 

49 

cz 


z 

2 

AO 

+ 12V 

50 

cz 


z 

1 

I/O SELECT 



_ 


_J 





o 











( Toward Front Edge of PC Board) 


LOCATIONS J2 TO J12 
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9. Nadere beschouwing I/O 


Het APPLE II Reference Manual geeft nog uitgebreider 
weer, welke adressen en toepassingen via de I/O structuur 
mogelijk zijn. Een veelgehoorde vraag is evenwel : "Wat 
doe je praktisch gesproken met die uiteenzetting?" Voor 
de niet hardware georienteerde gebruiker rijst de vraag, 
of hij veel mist, door geen kennis te nemen van de I/O 
moge 1 ijkheden. Het antwoord kan ontkennend en bevestigend 
luiden. Zeer weinig gebruikers zullen de APPLE toepassen, 
om eigen hardware ontwikkelingen te testen. Veel 
gebruikers hebben daarentegen te maken met het gebruik 
van diskstations, printers en interfacekaarten, zoals een 
klokkaart of een 1anguagekaart. 

Het is onze ervaring, dat veel problemen ontstaan door het 
overladen van de APPLE-voeding. Door teveel interfaces te 
gebruiken ontstaan bovendien warmteprob1emen, die de 
bedrijfszekerheid van de computer geweld aandoen. 

Het overwe1digende potentieel van de APPLE nodigt nu 
eenmaal uit tot extravagante uitbreidingen . Kunnen we 
voor de interfacing een praktische standaard vaststellen? 
We wagen het erop enige tips te geven, die voortkomen 
uit praktijkervaringen en Amerikaanse gebruiken. 

Slot 0. Integer Basickaart/Applesoftkaart of 
Languagekaart. 

Slot 1. Printer interfacekaart. 

Slot 2. Klokkaart (Mountain hardware, of voor wie eens 
wat anders wil: ComputerWatch ) 

Slot 3. 80 koloms kaart, bijv. van Videx, of Omnivision. 

Helaas veroorzaken deze kaarten nog wel 
problemen. Ze worden erg heet. 

Slot 4. Z-80 kaart. Een fantastisch compromis. 

Slot b. Te1efoonmodem voor data-networking . 

Amerikaanse modems werken niet zondermeer 
feilloos op ons telefoonnet. Let hierop, anders 
kost het u een hoge rekening. 

Slot 6. Disk II d i skettestat i ons 

Slot 7. Of: kleurentelevisie PAL/RGB kaart 

Of: modulator voor zw/w telev i sietoeste 1 . 
Nuttiger: interface naar 8 inch diskstations (b.v.SVA) 

Helaas zijn er relatief veei goedkope namaakkaarten in de 
handel, die door hobbyisten werden gemaakt. Pas hier voor 
op! Ze kunnen onderdelen van je computer beschadigen. 

De meeste software grijpt terug naar deze aansluitingen. 
Zijn alle slots bezet, dan is extra koeling zondermeer te 
adviseren. Het verbruik van deze kaarten grenst aan het 
maximum van de standaard APPLE II voeding. De voeding 
wordt dan heter, dan gewoonlijk. Veel troubles komen 
hieruit voort. Koelen is de oplossing. Gebruik een 220 V. 
koe1 venti1ator; via uw leverancier te betrekken. 
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I/O and ROM Address Detail 


HEX 

ADDRESS 

ASSIGNED FUNCTION 

COMMENTS 

COOX 

Keyboard input. 

Keyboard strobe appears in bit 
7. ASCII data from keyboard 
appears in the 7 lower bits. 

C01X 

Clear keyboard strobe. 


C02X 

Toggle cassette output. 


C03X 

Toggle speaker output. 


C04X 

"C040 STB” 

Output strobe to Game I/O 
connector. 

C050 

Set graphics mode 


C051 

" text 


C052 

Set bottom 4 lines graphics 


C053 

" " " " text 


C054 

Display primary page 


C055 

" secondary page 


C056 

Set high res. graphics 


C057 

" color " 


C058 

Clear "ANO M 

Annunciator 0 output to 

Game I/O connector. 

C059 

Set 


C05A 

Clear "AN1" 

Annunciator 1 output to 

Game I/O connector. 

C05B 

Set 


C05C 

Clear M AN2 M 

Annunciator 2 output to 

Game I/O connector. 

C05D 

Set " 


C05E 

Clear "AN3" 

Annunciator 3 output to 

Game I/O connector. 

C05F 

Set 
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HEX 

ADDRESS 

ASSIGNED FUNCTION 

COMMENTS 

C060/8 

Cassette input 

State of ’’Cassette Data In" 
appears in bit 7. 

input on 

C061/9 

"SW1" 

State of Switch 1 s\ Game 

I/O connector appears in bit 7. 

C062/A 

"SW2” 

State of Switch 2 input on 

Game I/O connector appears 
in bit 7. 

C063/B 

"SW3" 

State of Switch 3 input on 

Game I/O connector appears 
in bit 7. 

C064/C 

Paddle 0 timer output 

State of timer output for 

Paddle 0 appears in bit 7. 

C065/D 

" 1 

State of timer output for 

Paddle 1 appears in bit 7. 

C066/E 

" 2 

State of timer output for 

Paddle 2 appears in bit 7. 

C067/F 

" 3 «. " 

State of timer output for 

Paddle 3 appears in bit 7. 

C07X 

M PDL STB" 

Triggers paddle timers 
during 0 2 . 

C08X 

DEVICE SELECT 0 

Pin 41 on the selected 

Peripheral Connector goes 

C09X 

" 1 

low during 0 2 . 

COAX 

" 2 


COBX 

" 3 


COCX 

" 4 


CODX 

" 5 


COEX 

" 6 


COFX 

.. 7 


ClOX 

" 8 

Expansion connectors. 

C11X 

" 9 

»» 

C12X 

" A 

tt 
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HEX 

ADDRESS 

ASSIGNED FUNCTION 

COMMENTS 

C13X 

DEVICE SELECT B 

ft 

C14X 

" c 

M 

C15X 

" D 


C16X 

" E 

If 

C17X 

" F 

99 

C1XX 

I/O SELECT 1 

Pin 1 on the selected 



Peripheral Connector goes 

C2XX 

" 2 

low during 0 2 • 

C3XX 

M 3 

NOTES: 



1. Peripheral Connector 

C4XX 

" 4 

0 does not get this 



signal. 

C5XX 

" 5 

2. I/O SELECT 1 uses the 

PfiYY 

»* fi 

same addresses as 

LuAA 


DEVICE SELECT 8 -F. 

C7XX 

m 7 


C 8 XX 

” 8 , I/O STROBE 

Expansion connectors. 

C9XX 

" 9, " 


CAXX 

" A, 


CBXX 

" B, 


CCXX 

" C, 


CDXX 

" D, " 


CEXX 

n E> 


CFXX 

*» f »» 


D000-D7FF 

ROM socket DO 

Spare. 

D800-DFFF 

" ” D 8 

Spare. 

E000-E7FF 

«' " EO 

BASIC. 

E800-EFFF 

" *• E 8 

BASIC. 

•O 

F000-F7FF 

„ it F0 

IK of BASIC, IK of utility. 

F800-FFFF 

" " F 8 

Monitor. 
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ADDRESS 

BUS 



0, (InH 

b 

0 2 (IN) I 


^CLOClTl ^ 
INPUT J SY650X 


► 0, OUT 

- 0 2 OUT 

► R/W 

- DBE 


2. ADDRESSING CAPABILITY AND CONTROL OPTIONS VARY WITH 
EACH OF THE SY6500 PRODUCTS 


SY6500 Internal Architecture 


ACCUMULATOR 


INDEX REGISTER 


INDEX REGISTER 


PROGRAM COUNTER 


STACK POINTER 



Processor Programming Model 
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IMMED. 

ABS 

Z-PAGE 

ACCUM. 

IMPLIED 

(IND.X) 

(IND.Y) 

ZP,X 

ABS,X 

ABS.Y 

RE 

L. 

IN 

D. 

ZP 

,Y 

MNEM. 

OP 

Fig. 

OP 

Fig. 

OP 

Fig. 

OP 

Fig. 

OP 

Fig. 

OP 

Fig- 

OP 

Fig. 

OP 

Hg. 

OP 

Fig. 

OP 

Fig. 

OP 1 

Fig. 

OP 

Fig. 

OP 

Fig. 

ADC 

69 

i 

6D 

6 

65 

10 





61 

17 

71 

18 

75 

12 

7D 

6 

79 

6 







AND 

29 

i 

2D 

6 

25 

10 





21 

17 

31 

18 

35 

12 

3D 

6 

39 

6 







ASL 



0E 

8 

06 

11 

0A 

2 







16 

13 

IE 

9 









BCC 
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-■A 

SYNC 

j \ 

j 

A 

JMMED, 

_ ADC s 

I AND v 

^_/ CMP \ 

CPX \ 

_ CPY v 

/ EOR n 

/ LDA \ 

LDX \ 

LDY \ 

R/ffi 



ORA s 

SBC s 

ADDR Y PC Y PCH YpC ♦ 2 




O 

> 

H 

> 

X 

o 

*0 

n 

O 

m 

X 

o 

> 

> 


« ~A 

SYNC 

/ 1 



J 

\ 

r 





R/W 




ADDR Y PC Y PC + 1 





DATA ^ OP CODE NEXT OP CODE 


ASL 

LSR 

ROL 

ROR 


(1) Immediate Addressing 


(2) Accumulator 


1 2 



' j ' 

W' 


SYNC 

J 

\ 

r 

R/W 




ADDR 

X 

X 





OATA 

^ OP CODE ^ NEXT OP CODE 


IMPL IED 
CLC \ 

CLD s 

CLI \ 

CLV \ 

DEX \ 

DEY v 

INX \ 

INY \ 

NOP \ 

SEC \ 

SED n 

SEI \ 

TAX s 

TAY n 

TSX s 

TXA v 

TXS \ 

TYA \ 


(3) Implied 


R/W 




v 


\ 


r 


1 j PC ^ PC + 1 ^ SP ^PC + 1 


^ OP COPE ^ NOT USED ^ DATA 


(4) Implied (PHA, PHP) 
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(5) Implied (PLA, PLP) 






R/W 


3C 


V 


I 


X 


r 


x 


© 


X ADL + 


ABS ABS, X ABS, Y 
ADC V v v 

AND v v \ 

BIT \ 

CMP s v' v 

CPX \/ 

CPY V 


7 


INDEX, 
ADH 


^PC + 3 


EOR V 

LDA v 

LDX 7 

LDY 7 

ORA V 

SBC V 

STA © 

STX © 

STY © 


V 


V \/ 

\! \1 


^ OPCODE ^ ADL ^ ADH ^ DATA 


(6a) Absolute and Absolute Indexed (No Page Crossing) 


02 

SYNC 

^ j ^ 

J 1 

A 



W' 

l _7 

r 








R/W 







addr X pc X pcti X pct2 X ADL Ar Ex X AD io + H N + D , Ex X p ^ 3 







DATA )( OPCODE ^ ADL ^ ADH X ^ATA X ^ A 


ABS, X ABS, Y 

ADC V V 

AND n/ >/ 

\1 si 


CMP 

EOR V >/ 

LDA V \/ 

LDX si 

LDY >/ 

ORA V V 

SBC yj \I 


(6b) Absolute Indexed with Page Crossing 
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3 
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ADDR 

X pc 

X pcm 

^ PC < 2 

V ADL + INDEX, Y ADL i INDEX, Ypr , t 
^ ADH ^ ADH ' 1 ft'- J 







DATA 

y OPCODE 1 ^ ADL ADH NOT USED DATA ^ 


T 


(7) Absolute Indexed with Page Crossing (STA) 
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r 


\ 


ABS 

ASL N 

LSR % 

HOL \ 

ROR v 

DEC \ 

INC \ 


Absolute 


^ PC ^ PC + 1 ^ PC » 2 ^ ADL, ADH 


X 




V OPCODE Y ADL Y ADH Y OLD DATA 

NEW DATA y^ 

i — A 1 A —r — A i A i r 


1 

1 2 3 4 & 6 

7 





Y 


^_r^ru 


Y 


r 
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ASL 

LSR 

ROL 

ROR 

DEC 

INC 



X pc 

X pco 

T 

PC < 2 

x^ 

vdh X 

ADL + X, AI 

5H f C 

^7 3 












X aDL ) 

; - x tb? X 

DATA 

y^ NEW DATA y^ 


(9) Absolute Indexed 
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PC PC ^ PC + 1 ADL, 00 


x x~^~~x °"‘ x ~ 


ADC 

AND 
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CMP 

CPX 

CPY 
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LDA 

LDX 

LDY 

ORA 

SBC 
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STX 

STY 


ZERO PAGE 

V 

sj 



(10) Zero Page 


1 2 3 4 5 
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lP 

^p 


^p 
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\ 
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ADDR Y PC Y PC + 1 Y ADL, 00 YpC + 2 








DATA y OPCODE j ADL ^ OLD DATA ^ NEW DATA 


ASL 
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INC 


ZERO PAGE 



(11) Zero Page 


12 3 4 
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f f \ 

i J 

\ r 
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R^/V 
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ADDR Y PC Y PC + 1 Y ADL, 00 Y ADL + X, 00 Y 







DATA y OPCODE y ADL y WRONG DATAy DATA 


Z-PAGE, X 


ADC 
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AND 
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CMP 
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LDA 
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LDX 

LDY 
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SBC 
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STX 
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Z-PAGE, Y 



(12) Zero Page Indexed 
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(13) Zero Page Indexed 


OP CODE ADL ^WRONG DAI A^ 


IE 


^ NLW DATA 




JMP Indirect 
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ADDR 
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X pcti 

X ,c ' ! 

V PC L. 
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DATA 

X opcode X pcl X pch a 



(15) JMP Absolute 
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^ OPCODE ^"rLLADDR ^ 
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(16a) Relative (Branch Not Taken) 
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x - x y 


^ OPCODE ^REL.ADDR ^ NOT USED 


(16b) Relative (No Page Crossing) 
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SYNC 

/ \ 



j \ 

^ J 
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R/W 






ADDR X " X PC + 1 X PC + 2 X OLD PCH tfE 







DATA X 0PC0DE ^ REL ADDR ^ NOT USED ^ NOT USED 


(16c) Relative (With Page Crossing) 
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(17a) Indexed Indirect (No Page Crossing) 
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17b) Indexed Indirect (With Page Crossing) 
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(18a) Indirect Indexed (No Page Crossing) 
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(19) Indirect Indexed (STA) 
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(20) Absolute (JSR) 
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HOOFDSTUK 11 HARDWARE 


1. Synchronisatie en timing 


Het grootste voordeel van het APPLE-II Personal Computer 
Systeem is een betere benutting van de TIJD. 

Waar anders door ingewikkelde handelingen tijd wordt 
verkwist , zorgt de uiterst verfijnde en snelle 
opeenvolging van gebeurtenissen in de APPLE-II ervoor , 
dat meer tijd beter benut kan worden ! 

Dit vraagt natuurlijk om een tijdrege 1 i ng . 

Onder de grote bovenklep van de APPLE-II vind je het zgn. 
moederbord van de computer , waarop naast de elektronica 
componenten voor procesbesturing en in- en uitlezing van 
data ook de tijdregeling is ondergebracht. 

Wat natuurlijk het meest opvalt op het moederbord is de 
tamelijk grote microprocessor-chip (6502) , die later 
uitgebreid aan de orde zal worden gesteld. De 
microprocessor is middels een aantal meeraderige kabels 
met de andere delen van het systeem verbonden. Zo ' n 
meeraderige kabel wordt 1 bus ' genoemd. In het hierna 
volgende schema zien we de 1 bus - struktuur 1 van de 
APPLE-II. Je ziet , dat de tijdregeling van het systeem 
in een afzonderlijk blok is ondergebracht. Dit blok , het 
1 reference oscillator and system timing ' - blok , zorgt 
voor een juist verloop van de gebeurtenissen in de 
microprocessor en andere noodzake1ijke onderdelen. Zo 
levert het blok een 1 MHz signaal voor de microprocessor, 
een 14 MHz en een 7 MHz signaal voor de videogenerator. 
De oscillator ontleent zijn basisfrekwentie van een 
krista1. 

De frekwentie van het kristal bedraagt 14.318 MHz. 

Vervolgens is het blok ' Sync counter ' van belang. 

Dit levert signalen , die nodig zijn voor het 'opfrissen' 
( = refreshen ) van het willekeurig toegankelijk lees - 
schrijfggeheugen ( RAM ) en het beeldscherm. Het 
opfrissen is nodig , omdat het geheugen bestaat uit 
dynamische komponenten. 

Je kunt je dit voorstellen als een soort van lek in de 
lading van een geheugen1 okatie. Hierdoor zou op den duur 
informatie verloren gaan. 0m dat nu te voorkomen , wordt 
er regelmatig wat lading toegevoerd , waarmee de lokatie 
wordt opgefrist. 

Hetzelfde geldt voor het beeldscherm. De nawerking van 
het beeldscherm , maar ook van ons oog , is beperkt. 
Daarom dient het beeldscherm regelmatig opnieuw 
beschreven te worden. 

In het geheugen komen dan ook speciale gebieden voor 
waar de beeldscherm informatie wordt verwerkt en 
opgefrist. 

Je zult die gebieden later in de beschrijving van de 
geheugenmap van de APPLE-II tegenkomen. 
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De videogenerator levert signalen , die gebruikt worden 
voor de besturing van de monitor - televisie. Daartoe 
behoren signalen voor de lijn - en beeldsynchronisatie , 
de k 1 eurinformatie en intensiteit. 

Het ROM - blok spreekt natuurlijk voor zichzelf. 

ROM betekent ' read only memory 1 : exclusief 
uitleesgeheugen. 

De omvang van dit blok is maximaal 6x2 Kilobyte. 

De bijbehorende adressen zijn D000 t/m FFFF. De ROM ' s 
bevatten de APPLE-II systeem software , zoals APPLESOFT. 

Het willekeurig toegankelijk lees - schrijf geheugen van 
de APPLE-II kan worden uitgevoerd met 4K of 16K 
dynamische RAM's. RAM betekent 'random access memory'. 

Als 4K chips worden toegepast , zal een bepaald adres op 
een andere chip aanwezig kunnen zijn , dan bij een 
uitvoering met 16K chips. 

Urn ervoor te zorgen , dat bij een bepaald adres de juiste 
chip wordt geselecteerd , is het blok 4K/16K RAM Select 
aanwezig. 

Een onderdeel van dit blok vormen de jumperplugjes , 
waarmee aangegeven wordt , welke geheugenchips in je 
systeem zijn aangebracht. 

Het refreshen van het RAM en de videobeeldbuis gebeurt 
met een betrekkelijk hoog tempo. De tijd tussen twee 
'opfris' - cycli bedraagt hoogstens enkele mi 11isekonden 
( RAM ). 

De RAM Adress Multiplexer zorgt ervoor , dat het RAM 
wordt geselekteerd door de processor , of de ' direct 
memory access ' controller ( DMA controller ) , danwel 
door de Sync Counter voor een RAM of video refresh. 

Het blok On-board I / 0 bevat de adresdecoder voor de 
verschi11ende se 1 ektiesigna1en , de A / D omzetters voor 
de potmeters voor speiletjes ( de zgn. game - paddles ) , 
de cassette in - en uitgang en de versterker voor de 
luidspreker. De A / D omzetters zetten analoge signalen 
om in digitale. 

Het Periferal I / 0 bevat de se1ektie1ogica voor de zgn. 

' slots ' ( de langwerpige ' stopkontakten ' ) en de 
slots zeif. 

Hierna volgen enkele schema ' s , die op het APPLE-II 
Personal Computer Systeem van toepassing zijn. 




FIGURE S-1 APPLE II SYSTEM DIAGRAM 
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SYSTEM TIMING 


SIGNAL DESCRIPTIONS 


14M : Master oscillator output, 14.318 MH2 +/- 35 ppm. All other 

timing signals are derived from this one. 

7M : Intermediate timing signal, 7.159 MHz. 

COLOR REF : Color reference frequency used by video circuitry, 3.530 MHz. 

0o : Phase 0 clock to microprocessor, 1.(123 MHz nominal. 

0 X : Microprocessor phase 1 clock, complement of 0 O , 1.023 rillz 

nominal. 

0 2 : Same as 0 O . Included here because the 6502 hardware and 

programming manuals use the designation 0 2 instead of 0 O . 

Q3 : A general purpose timing signal which occurs at the same 

rate as the microprocessor clocks but is nonsymmetrical. 


MICROPROCESSOR OPERATIONS 

ADDRESS: The address from the microprocessor changes during 0 X , 

and is stable about 300nS after the start of 0 X . 

DATA WRITE: During a write cycle, data from the microprocessor 

appears on the data bus during 0 2 , and is stable about 
30Q(nS after the start of 0 2 . 

DATA READ: During a read cycle, the microprocessor will expect 

data to appear on the data bus no less than lOOnS prior 
to the end of 0 2 . 


SYSTEM TIMING DIAGRAM 


TIMING CIRCUITRY 
BLOCK DIAGRAM 


TIMING RELATIONSHIPS 



-^m> jinjian^ 
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FIGURE S-2 MPU AND SYSTEM BUS 
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FIGURE S-3 REFERENCE OSCILLATOR AND SYSTEM TIMING 
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SYSTEM 
TIME 
FIG. S<J 


SOFT 5 +5V 



FIGURE S-4 SYNC COUNTER 
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ROM PINOUT DETAIL 



FIGURE S-5 ROM MEMORY 
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RGURES-6 4K/16K RAM SELECT 



































































































































•SEE FIG S-6 FOR OTHER HALF OF C12 


FIGURE S-7 RAM ADDRESS MUX 



TO 

RAM 

ADDRESS 
LINES 
FIG S-8 
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FROM 4K/16K SELECT 
FIG. S-6 

^- 



LATCHED 

RAM 
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OUT 


FIGURE S-8 4K TO 48K RAM MEMORY WITH DATA LATCH 
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I/O CONNECTOR DETAIL 
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FIGURE S-9 PERIPHERAL I/O CONNECTOR PINOUT AND CONTROL LOGIC 
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S-10 ON BOARD I/O 
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2. ROM en PROM beknopt 


De APPLE-11 heeft een adresbereik van 64K (= 65536 
adressen ). De bovenste 12K zijn gereserveerd voor 
ROM/PROM/EPROM. Er zijn op het bord 6 sockets aanwezig 
voor chips van 2K x 8 bit. 

In de geheugenmap is aangegeven , hoe de systeem - 
software over het ROM - block is verdeeld. 


3. RAM 


De APPLE-II is ontworpen om te worden gebruikt met 
dynamisch RAM , opgebouwd uit chips , type 4116, die 
16384 ( 1 6K ) woorden van 1 bit bevatten. Omdat de 
APPLE-11 gebouwd is rond een 8 bits microprocessor , 
moeten we steeds 8 van deze chips parallel zetten om 
woorden van 8 bits te krijgen. 

Er kunnen maximaal 3 rijen van 8 RAM chips in het 
moederbord worden gestoken. 


4. De geheugenmap 


De 64K geheugencapaciteit van de APPLE-II is op de 
volgende wijze toegedeeld : 


0000 

- BFFF 

(48K) 

RAM 

cooo 

- CFFF 

( 4 K) 

I/O 

D000 

- FFFF 

(1 2 K ) 

ROM 


In de volgende tabellen is aangegeven , waarvoor de 
diverse gebieden worden gebruikt. 

De eerste tabel geeft een overzicht in blokken van 4K. 

De tweede tabel geeft meer gedetai 1 leerd weer , hoe de 
eerste 3K van het geheugen worden gebruikt. 

De derde tabel tenslotte laat zien , hoe het gebied , dat 
bestemd is voor I / 0 en speciale funkties is ingedeeld. 


11-15 



Memory Address Allocations in 4K Bytes 


0000 


1000 


aooo 


3000 


4000 


5000 


6000 


7000 


text and color graphics 
display pages, 6502 stack, 
pointers, etc. 


high res graphics display 
primary page 


high res. graphics display 
secondary page 


• • 
II 
II 
II 


8000 


9000 


AOOO 


B000 


C000 addresses dedicated to 


hardware functions 




II 



D000 

ROM 

socket 

DO: 

spare 


ROM 

socket 

D8: 

spare 

E000 

ROM 

socket 

EO: 

BASIC 


ROM 

socket 

m 

E8: 

BASIC 

F000 

ROM 

socket 

FO: 

BASIC 

utility 


ROM 

socket 

F8: 

monitor 


Memory Map Pages 0 to BFF 


HKT 

ADDRESS(ES) 

USED 

BT 

USED FOR 

COMMENTS 

page Zero 

UTILITY 

register area for "sweet 16" 

16 bit firmware processor. 


OOOO-OOIF 


0020-004D 

MONITOR 



004E-004F 

MONITOR 

holds a 16 bit number that 
is randomized with each key 
entry. 


0050-0055 

UTILITY 

integer multiply and divide 
work space. 


0055-00FF 

BASIC 



OOFO- OOFF 

UTILITY 

floating point work space. 


PAGE ONE 

6502 

subroutine return stack. 


OlOO-OlfF 


PAGE TWO 


character input buffer. 


0200-02FF 



PAGE THREE 

MONITOR 

Y (control Y) will cause 
a c JSR to this location. 


03F8 


03FB 


NMI's are vectored to this 
location. 


03FE-03FF 


IRQ's are vectored to the 
address pointed to by these 
locations. 


0400-07FF 

DISPLAY 

text or color graphics 
primary page. 


0800-0BFF 

DISPLAY 

text or color graphics 
secondary page. 

BASIC initializes 
LOHEM to location 
0800. 
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HOOFDSTUK 12 TROUBLE SHOOTING 
1. Enkele oorzaken 


Hoewel de APPLE een bijzondere robuuste bouw heeft en de 
onderdelen van uitstekende kwaliteit zijn, kan het 
gebeuren, dat er een storing optreedt. De 
programma-executie stopt, er verschijnen vreemde tekens 
in het beeld, of de monitor valt weg, de diskdrives doen 
raar, en je printer weigert; allemaal redenen, om je 
ontzettend bezorgd over te maken. Toch zijn er een (klein) 
aantal "standaard-oorzaken" aan te geven, die klachten 
veroorzaken. Klachten, die veelal met eenvoudige middelen 
zijn te achterhalen en te verhelpen. Een van die klachten 
betreft het al meermalen gesignaleerde "stilstaande 
lucht" syndroom. De computer dient opgesteld te staan in 
een goed ventilerende ruimte. 

Helaas zal het merendeel van de APPLE-gebruikers naar een 
service- centrum van APPLE Computers moeten gaan, wanneer 
zich kleine storingen voordoen. Misschien dat enkele 
aanwijzingen voldoende zijn, om niet voor ieder 
wissewasje naar uw leverancier te gaan. 

Enkele standaard-"klachten" 


De aan/uit schakelaar geeft een "krakend" geluid bij het 
schakelen. Remedie is er eigenlijk niet voor. Bij het 
schakelen kunnen er vonkjes tussen de kontakten 
overspringen, waardoor het eigenaardige geluid ontstaat. 
Schakel wat resoiuter. 


De monitor-TV doet het niet, of geeft een flauw, of een 
gestoord beeld. Controleer de kabel van de TV-ingang van 
je monitor en let vooral op de gesoldeerde (?) plug. 
Beweeg de draad - wat doet het beeld. Dit is meestal geen 
computerdefect. 

Het "Power"-lampje gaat niet aan. Doet de computer het 
wel? Oplossing is het lampje te vervangen. Zie Reference 
Manual. 

Is de computer wel op netspanning met randaarde 
aangesloten? 

De diskdrive draait, maar leest de diskette niet uit. Hij 
"boot" niet. Gebruik je een 13 of 16 sectoren diskette 
(DOS 3.2/3.3)? 
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Gebruik een masterdiskette en controleer alles opnieuw. 
Indien dit geen uitkomst brengt, dan wordt de computer 
uitgezet. Zet de stroom af, maar houdt de leiding in de 
voeding (aarding, weet je well). Is het "Power"-Iampje 
uit ? Ja, dan klep van de computer open doen en 
interfacekaart lokaliseren. Licht hem voorzichtig, maar 
vastberaden uit het Slot. Is hij stoffig. Controleer de 
kontakttongen. Steek hem term terug op zijn plaats. 

Deksel nu weer dicht. Power aan en opnieuw proberen. 
Meestal oxidatie van de interfaceconnectoren. Even 
"jutteren" is vaak voldoende. Maar weest voorzichtig! 

Zeer zelden zijn het de kleurrijke "flatcables" van de 
drives. Minder zelden is het helaas de besturingslogica 
op het analog board in de drives. Vermijdt statische 
electriciteit. Houdt bij het manipuleren met een hand de 
APPLE voeding vast. Is het analog board defekt, informeer 
dan bij verschi 1 lende APPLE leveranciers naar de 
mogelijke kosten. 

De computer "hangt" telkens en weigert normaal te werken. 
Is dit spontaan gekomen, of na aanraking van chips in het 
binnenste van de computer ? Is het een spontaan probleem, 
dan moet je APPLE terug naar de dealer. Statische 
electriciteit (kleding, vloerbedekking) is vaak een 
oorzaak na het bekijken en betasten van de chips. Via de 
leverancier of hobbyclub zijn testprogramma ' s te 
betrekken, die de defekte chip lokaliseren. Kosten zijn 
meestal minimaal. Zie verder onder "vervangen van chips". 

Toets dendert. DDDus, hij geeft bij het indrukken meer 
dan 1 karakter. Schoonmaken is vaak geen oplossing. Beter 
is vervanging van de defekte toets en controle van de 
keyboard encoder, liefst via een goed geouti1leerde 
leverancier. DDDenderen uw vingers soms ook wel 
eens....??? De goedkoopste remedie hiervoor is harder 
t i kken ! 

Na uitgebreid met de diskdrives gewerkt te hebben, 
schijnt de computer niet goed meer te gehoorzamen. Lees- 
en of schrijffouten worden gemeld. Mogelijk is het 
"vollopen" van het geheugen oorzaak. In computerbargoens 
heet dit fenomeen "clobbering". 

Het beste is, de computer enkele momenten af te zetten. 
Theoretisch is het voldoende het commando: X=FRE(0) en/of 
FP te gebruiken, om het systeem te "schonen". 

Uitgebreide moei1ijkheden met cassette-opnamen worden 
behandeld onder het hoofdstuk Interfacing. In 99 van de 
100 gevallen is de recorder met zijn aans1uitingen de 
oorzaak. 

Heeft u bij het uitpakken van uw APPLE de meegeleverde 
handboeken ook werkelijk bestudeerd ? 
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2. Vervangen van IC's 


De meeste geintegreerde circuits (IC's) van de APPLE zijn 
standaard chips, die tegen uitzonderlijk lage prijzen 
zijn te verkrijgen. De ROM's van het moederbord, de 
keyboard encoder en analog boards zijn de duurste 
onderdelen. Het is bij de voorbereiding van dit Handboek 
opgevallen, dat veel leveranciers niet uitgerust zijn 
voor adequaat servicen van de APPLE en dat dit blijkt uit 
het niet aanwezig zijn van de noodzakel i jke 
meetapparatuur, waaronder een osci 1 loscoop. Ook is het 
meermalen opgevallen, dat serviceverleners niet met 
moderne meetapparatuur konden omgaan en dat elke 
theoretische kennis van de typen chips ontbrak. Hieraan 
valt nog zeer veel te verbeteren! 

Reden te meer de eigen capaciteiten na te gaan en af te 
wegen, of een kleine reparatie niet zelfstandig kan 
worden uitgevoerd. 

Wanneer aan de hand van het schema is vastgesteld welk 
gedeelte van de computer een storing veroorzaakt, zal 
afgewogen kunnen worden of vervanging van IC's 
zelfstandig kan worden uitgevoerd. Je moet de volgende 
procedure goed in het oog houden. 

a. Schakel de APPLE uit, maar houdt de netleiding in de 
voeding. 

b. Verwijder het deksel. 

c. Verwijder zonodig de i nterfacekaarten. 

d. Houdt met een hand af en toe de metalen voeding vast 
(aarde). 

e. Lokaliseer de defekte chip en verwijder hem met een IC 
trekker. 

f. Let op de witte, pin 1 wijzer op het moederbord en de 
dot-markering op de te vervangen chip. 

g. Breng de interfaces weer aan en sluit het deksel. 

Moet om wat voor reden ook de kast worden verwijderd, 
zorg dan, dat de APPLE op de kop wordt neergelegd bij 
voorkeur op een zachte, maar anti-statische onderlegger. 
Verwijder de zes kruiskopschroeven in de buitenhoeken van 
het ondervlak. Verwijder tevens de vier schroeven onder 
het keyboard. 

Hierna kan de APPLE uit de kast worden gehaald. Verbreek 
nu de verbinding tussen moederbord en keyboard: connector 
lostrekken. 

Wil je het keyboard verwijderen, maak dan de vier 
schroeven los in de hoekpunten van het keyboard. 

Wil je -zonder het uiteen nemen van de APPLE- een toets 
van binnen schoonmaken, licht dan met een kleine 
schroevendraaier het toets-letterkapje. Voorzichtigheid 
is hierbij geboden. Beter is een klein punttangetje, 
waarvan de bekjes voorzien worden van een stukje plastic 
(van een boterhammenzakje o.i.d.) voor een betere grip. 

De toetskapjes zitten rechtstandig in een schuifvatting 
gedrukt en kunnen daardoor recht omhoog worden getild. 

Dit geldt ook voor het "power"-lampje. 
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Het openen van de diskdrives dient uiterst voorzichtig 
te geschieden. Verwijder de schroeven in het grondvlak en 
schuif de kast naar achter weg. Let op de regenboogkabe1 ! 
Let erop, dat te nimmer het analog board bovenop de 
diskdrive door de kast wordt geraakt en kortgesloten ! ! 

Het bijstellen van de DSpeed met de kleine draaipotmeter 
op het board kan alleen gebeuren, wanneer je beschikt 
over een testdiskette. Het schoonmaken van de fijne kop 
van de diskdrive moet voorzichtig gebeuren en gebruik 
eventueel een cassette reinigingsmiddel . Gebruik GEEN 
schoonmaak diskette - die bekrassen de opnamekop!!! 
Schoonmaken van de kop is slechts onder uitzonder1ijke 
omstandigheden nodig. Bekijk gelijk het aandrukvi1tje van 
de diskettehouder. Men zegt, dat een heel klein 
druppeltje naaimachine-olie op de kopgeleistangen geen 
kwaad kan. Is er een hardwarefout opgetreden in de 
diskdrive, bijv. leest de drive niet meer, dan hoeft dit 
niet te betekenen, dat een chip defect is. Nogal vaak 
blijkt een weerstand en een gelijkrichter het begeven te 
hebben. Meetapparatuur is dan nodig. 

Bij het vervangen van een chip moet je er goed op 
letten, dat de minuscule kontaktpennen ("pootjes") op hun 
plaats in de socket terecht komen. Zit een pennetje 
scheef, of breekt het af, dan zit je in de moei1ijkheden. 
Voorzichtig bijbuigen kan bijvoorbeeld op een vlakke 
tafelrand. Let erop, dat de IC niet met statische 
e1ectriciteit in aanraking komt. Gebruik een IC-trekker, 
liever geen tang. Een postzege1pincet is eventueel ook 
geschikt. Weet je niet welke IC een storing kan 
veroorzaken, praat er dan eens over met een APPLE 
gebruiker in je omgeving. Ben je al lid van de HCC? 

Neem het dan op met c1ubvrienden . 

BIJ ELKE IWIJFEL AAN DE EIGEN KUNDIGHEID DIEN JE 
ZONDERMEER JE LEVERANCIER IN TE SCHAKELEN. 
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HOOFDSTUK 13 ALGEMENE SLOTOPMERKINGEN 
1. De Hobby Computer Club 


De HOBBY COMPUTER CLUB is een vereniging voor mensen die 
zich uit liefhebberij bezig houden met computers. Doel 
ervan is, het stimuleren van kontakten en het informeren 
van de leden over ontwikkelingen op het gebied van 
computers. Hierdoor kan men met meer kennis van zaken (en 
dus genoegen) zijn hobby bedrijven. 

Hoewel de HCC in principe ALLE computers 1iefhebbers wil 
verenigen, zijn de meeste leden gebruikers van grote en 
kleine systemen, maar hoofdzakelijk georienteerd op 
microcomputers. De snelle groei van de HCC duidt erop, 
dat zij in een behoefte voorziet. Zowel in Belgie als 
Nederland is de HCC aktief. Ze organiseert bijeenkomsten, 
lezingen, gebruikersaktiviteiten en informeert haar leden 
ondermeer middels een fraai, dik tijdschrift, de "HCC 
Nieuwsbrief". Het verschijnt 12 maal per jaar op A4 
formaat. 

De HCC kent afzonder1ijke "gebruikersgroepen ", zoals de 
AGG, de APPLE GEBRUIKERS GROEP. Voorts kent de HCC een 
hardware afdeling. 

Hierbij kunnen de leden artikelen bestellen tegen vaak 
sterk gereduceerde prijzen. Er is een software afdeling, 
die op cassettes en diskettes nuttige programmaatjes 
verspreidt. En de HCC beschikt over een bescheiden 
uitgeverij, die inmiddels een 16-tal publikaties het 
licht liet zien. De HCC organiseert jaarlijks een groot 
verbindend evenement, waarop alle leden en a 11e 
leveranciers welkom zijn voor een uitwisseling van 
informatie. Het is dus geen club voor 
"sa1 on-computeristen " en aanverwante 
"societeits-gezel1igheids 1iefhebbers ", maar een 
werkelijk aktieve vereniging met een grote dadendrang. 

Is het zinvol, om lid te worden van de HCC. Wij geloven 
van wel. Echter gebiedt de objectiviteit te stellen, dat 
dit oordeel zeer persoonlijk is. De HCC bevindl; zich in 
het spanningsveId "computerverkoper-koper", waarin 
tegengestelde belangen ten voile voor het voetlicht 
kunnen treden. De tamelijk "kille" houding van sommige 
leveranciers t.a.v. de HCC en de pressie van de HCC op 
leveranciers om in te haken op bepaalde HCC-aktiviteiten 
(w.o. de wens speciale prijzen te mogen rekenen voor 
leden), laat de buitenstaander weleens afschrikken. Dat 
de HCC een "hobby copieer club" is, waarbij men kostbare 
software voor een habbekrats kan betrekken, is een 
flagrante onwaarheid! Degenen, die daarom lid worden, 
komen bedrogen uit. Door de snelle toename van het aantal 
priveecomputers ligt de groei van de HCC voor de hand. 
Helaas blijkt een zinvolle communicatie tussen de leden 
buiten de grote stadscentra -naast de "HCC Nieuwbrief" en 
de "Gebruikersgroepte wensen over te laten. 

Computeristen zijn individua1isten, ofschoon bewezen kan 
worden dat "samenwerking individuele versterking" 
betekent. Hierin vervult de HCC een belangrijke taak. 
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Conflict Simulatie : 


In dit boek hebben we getracht je bekend te maken met de 
veelzijdigheid van de APPLE-II Personal Computer. 

Het is je inmiddels wel duidelijk geworden , dat het 
systeem meer kan dan alleen maar spelletjes. 

Maar aangezien computers en spelletjes nauw met elkaar 
verweven zijn ( op de eerste 1 echte ' computer , de 
ENI AC , werd al een variant op het bekende boter , kaas 
en eieren - spel gespeeld !!! ) willen we voor de 
volledigheid het ' spelelement ' ook nog even aanstippen. 
De eerste Personal Computers , waaronder ook onze , nu 
dierbare , APPLE waren in wezen spe11etjesmachines. Later 
bleek pas de veelzijdigheid van de Microprocessor. Dit 
verklaart ook het enorme arsenaal van spelletjes voor de 
APPLE. En zeg nu zelf .... , het is best leuk om een pot 
STARTREK , STARWARS , GALAXIAN , INVADERS of MIDWAY te 
spelen. 

Echter na verloop van tijd zullen deze spelletjes gaan 
verveleri , omdat men de struktuur van het programma 
doorkrijgt. 

Vandaar ook dat er verbeterde versies of geheel nieuwe 
versies op de markt zijn gekomen. Deze versies stellen je 
in staat van te voren het niveau van je spel in te 
stellen , het aantal tegenstanders , snelheid en zo voort. 

Deze soms zeer moeilijke computerprogramma ' s kunnen we 
dan ook eigenlijk geen spelletjes meer noemen. Een beter 
woord is ' simulatie ' , d.i. nabootsing 
Dat computers geschikt zijn voor het simuleren van de 
werke 1 ijkheid , zal een ieder bekend zijn. Voorbeelden 
hiervan zijn de VIuchtnabootsers voor Burger 1uchtvaart , 
Militaire luchtvaart en natuurlijk de Ruimtevaart ( je 
dacht toch niet dat de heren Crippen en Young de 
Spaceshuttle voor het eerst direkt op een landingsbaan 
zetten ?) . 

Wat je waarschijnlijk niet weet , is dat jouw computer 
ook tot dit soort simulaties is staat is . De APPLE 
gebruiker is hierbij bijzonder in het voordeel vanwege de 
enorm krachtige HIRES moge1 i jkheid . 

Ook op de APPLE zijn vluchtsimulaties mogelijk , een 
voorbeeld hiervan is de FS = 1. Andere simulaties zijn 
Air Traffic Controller , Super Star Trek en 3D Docking. 

Een voor jou geheel onbekend terrein is waarschijnlijk de 
Computer CONFLICT Simulatie. Hiervoor zijn fantastische 
programma 1 s in de handel. Deze simulaties varieren van 
de Oudheid (Roman Empire , Computer Napoleonics ) via 
heden( Computer Ambush ) tot ver in de toekomst ( de , 
inmiddels vier , delen van de GALACTIC saga ). 

Deze uitgekiende programma 's stellen je in staat om 
grootscheepse conflicten op jouw computer te simuleren. 

Een spelduur , varierende van enige uren tot enige weken 
( jazeker ) , is eerder regel dan uitzondering. 

Bescheiden voorbeelden van een conflict simulatie zijn de 
programma 1 s RISK en WARLORDS , die respectievel i jk 
voorkomen op de diskettes 2A en 2B van de HCC. 
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Nu bestaat er in Nederland een Vereniging van mensen die 
de conflict - simulatie als gemeenschappe1ijke hobby 
hebben. 

Deze Vereniging genaamd DUCOSIM ( DUtch Conflict 
SIMulation association ) is een overkoepelende 
organisatie voor onderafde1ingen , die ieder in een 
bepaalde interessesfeer werkzaam zijn . 

Zo is er de 1 Miniature - Wargaming 1 , de 1 Board - 
Wargaming 1 , 1 Fantasy/Science Fiction Wargaming 1 en 
natuurlijk een afdeling 1 Computer - Spellen 
Deze computer-poot van DUCOSIM heet DUCOCOSIM ( de eerste 
CO van Computer natuurlijk ). 

DUCOSIM heeft zich als doel gesteld ' het contact tussen 
alle Nederlandstalige wargamers ( miniaturen , 
bordspellen ,fantasy/science fiction en diplomacy ) te 
onderhouden en te versterken en be 1angste11ing te wekken 
voor onze gemeenschappe1ijke hobby 
Men probeert dit te realiseren door : 

1. Het uitgeven van een maandblad 1 Conf 1 ictgazet 1 met 
daarin verenigingsnieuws , aankondigingen van conventies 
etc. 

2. Het organiseren van conventies , waar leden uit het 
gehele land elkaar treffen om hun hobby te beoefenen of 
er over van gedachten te wisselen. 

3. Het organiseren van kampioenschappen. 

4. Het actief steunen van leden , die zich inspannen om 
lokale of regionale afdelingen van DUCOSIM op te zetten. 


Belangste1lenden kunnen schrijven naar : 
DUCOSIM 

Van Foreestweg 38 
2614 CK Delft 
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3. DAAR MAKEN WE EEN KOPIETJE VAN 


Je bent net begonnen met je APPLE hobby. Dit boek wil een 
samengevatte handleiding zijn, die het je mogelijk wil 
maken snel wegwijs te worden in het gebruik van je 
geweldige computer. Je zult nu wel inzien, dat de 
computer een "dom" ding is, dat eerst voorgeprogrammeerd 
moet worden voor zijn taak. Nu haat je waarschijn1ijk net 
als wij het telkens uitvinden van weer een nieuw "wiel" - 
dus zoek je naar pasklare programma's, die je zo kunt 
gebruiken. Programmatuur, of beter: software, is m.n. 
voor de APPLE II computer in uitzonder 1 ijke hoeveelheden 
te krijgen. Hoewel de makers van deze software hun inzet 
graag goed beloond willen zien (hoeveel regels kun jij nu 
per uur programmeren?), zijn de pakketprijzen erg laag. 
Een spelletje kost zelden meer dan Hf1.100,-/Bfr.1400,-. 
Een database 1 krijg je zelfs kostenloos bij aanschaf van 
een diskdrive; o waar die dan wel te vinden is ? Kijk 
eens op je masterdiskette .... 

Een redelijke gegevensverwerker kost tussen 
Hf 1,450/Bfr.6300,- en Hf1.2500,-/Bfr.35000,-. Toch zijn 
dat vaak "onoverkome1ijke" sommen, die enkelen er toe 
bewegen te gaan zoeken naar "gestolen" of "gekopieerde" 
versies van het oorspronke1ijke programma. 

Het plegen van inbreuk op vermeende auteursrechten op 
software is daarmee een feit. Dit onderwerp ligt zeer 
gevoelig - want waar houdt het auteursrecht op en waar 
begint de diefstal c.q. de inbreuk op dit recht. Hans van 
Kampen formuleerde onlangs vier "wetten", die een aanzet 
kunnen zijn tot een zinniger diskussie over de piaats van 
software in het automatiseringsgebeuren. 

Hij noemde zijn "wetten" de "Final Four": 

1- Slechte software wordt onkopieerbaar gemaakt 

2- Goede software is direkt kopieerbaar 

3- Goede software wordt niet illegaal gedistribueerd 

4 - Er bestaan maar 4 verschi1lende softwarepakketten 

ten ieder, die zich ervan bewust is, dat "backup copies" 
van diskettes noodzakelijk zijn, zal so-wie-so de Wet 1 
en 2 onderschrijven. Echter lijkt het moeilijk een 
programma als "VISICALC" met "slecht" te kwa1ificeren. 
Vanuit het marketingstandpunt is het begrijpe 1 ijk , dat 
zo'n veelzijdig rekenprogramma, waaraan zeker 2 jaar 
research en arbeid is voorafgegaan, tegen een zo 
"gunstig" mogelijke prijs op de markt wordt gebracht. 

Toch willen de makers ervan door kopieerbevei 1 igingen aan 
te brengen i 1 legale distributie tegengaan. Er klopt dus 
iets niet aan de marketing! Wanneer het programma zo 
veelzijdig is, dat iedereen het zal willen gebruiken, 
ligt het voor de hand, dat het pakket zichzelf niet hoeft 
te bewijzen en dus tegen een veel lagere prijs (waardoor 
illegale distributie, ook wel "kopieren" genoemd, minder 
zinvol wordt) op de markt had kunnen worden gebracht. Een 
goed voorbeeld van eigen bodem is een administratief 
pakket, dat door een centraal gelegen softwarehuis wordt 
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aangeboden. Dit pakket is niet Peter of slechter dan 
vergelijkbare en in overvloed aanwezige financiele 
bedrijfspakketten, doch wordt voor de kleine APPLE drives 
uitgebracht in "beveiligde versie". Wanneer het pakket zo 
goed zou zijn, dat elk bedrijf ermee zou kunnen werken, 
zou het tegen zo'n gunstige prijs kunnen worden 
aangeboden, dat i1 legale distributie niet noodzakelijk 
zou zijn. Dat beide voorbeelden in het i 1 legale 
distributiecircuit zijn toont 

a) dat de bewuste programmatuur goed in de markt ligt, 
doch te duur wordt bevonden en 

b) dat velen hun software "op maat" wensen te 
kunnen maken. 

Dat laatste is veel betekenend: wat heeft men in een 
bedrijf aan "micro" toepassingen op een "macro" 
schaal - waarom is deze software afgestemd op gebruik 
in de hobbysfeer, dus voor kleine diskette-systemen ? 

Ais wij deze redeneertrant voortzetten, komen we niet tot 
de essentie van het probleem. De oorzaak van het bestaan 
van een kopieerprobleem ligt in de afschuw, die 
systeem-ontwerpers hebben van software-implementatie in 
hun systemen. Computerbouwers zijn electronici - ze 
bouwen ingewikkelde stroomcircuits , die een logische 
functie moeten hebben. Wat deze componenten (meestal 
IC's) voor moge1ijkheden bieden voor het maatschappelijk 
leven deert hen niet of nauwelijks! Hierin schijnt 
vooralsnog ook geen wezenlijke kentering te komen. Deze 
sterke conclusie krijgt een diepere betekenis, wanneer we 
beseffen, dat computersoftware uit maar 4 stromingen 
bestaat: 

1- de recreatieve programmatuur, w.o. spelletjes/educatie 

2- de tekstverwerking, uitbouw van de typemachine 

3- de gegevensverwerking, uitbouw van de kaartenbak 

4- de geta1 lenverwerking, uitbouw van het rekenwerk 

Dit zijn naar onze mening de 4 wielen van de 
computermobiel... 

Wie kan echter aangeven wie de OORSPRONKELIJKE ontwerper 
van verwerkingsroutines was ten behoeve van de vier 
opgesomde doelen? 

Wie kan bijgevolg "authent i c i te i t" claimen o,p zijn 
product, dat toegesneden is op de vier opgesomde 
deelmarkten ? Een voorbeeid maakt dit vraagstuk 
duidelijk: kan een romanschrijver een andere schrijver 
betichten van inbreuk op zijn auteursrecht doordat de 
andere schrijver een roman het licht doet zien, waarin 
niet Antje achter Jantje, maar Mientje achter Pietje 
aanzit ? Ook al speelt dit tafereel zich respective1ijk 
aan de Noord- en de Zuidpool af? 

Het boekenvak houdt op te bestaan, wanneer deze vraag 
bevestigend zou worden beantwoord. 

Een andere zaak is het, wanneer het gehele werk 
klandestien wordt gekopieerd en verhandeld. 

Waarom kopieren boekhande1aren hun boeken niet en waarom 
zouden computerleveranciers hun software wel kopieren ? 
Dat de electronica op voet van oorlog leeft met de 
gebruikerswensen is hiermee voldoende aangetoond. Het 
houdt geen gelijke tred en tussen de wrijvende krachten 
leeft de software-pionier. 
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Is hij een "born loser" ? Pas wanneer software IN het 
computersysteem aanwezig is en modulair te vormen is tot 
individueel gewenste werkvormen valt deze vraag positief 
te beantwoorden. De tijd zal dit ons leren. 

Computergebruikers zullen overigens moeten oppassen, dat 

de software-wereld niet remmend gaat werken op 

moge 1 i jkheden , die nu al aan de horizon zijn verschenen. 

Tot het zover is, dat software tot firmware wordt 

geintegreerd, zullen we gewoon moeten leren leven met een 

ontwikkelingsstuip. Termen als "piraterij" en "diefstal" 

doen in dat licht grotesk aan, want hij die van schulden 

vrij is werpe de eerste steen ....! 

Een veelbelovend alternatief is het UITGEVEN van 
software. Hierbij wordt programmatuur aan de gebruiker 
geleverd tegen kostprijs, doch met een relatief duur en 
zeer uitgebreid handboek erbij. Indien de programmatuur 
daarvoor van voldoende kwaliteit is, zal een gebruiker 
misschien de programmatuur malefide willen kopieren, doch 
op grond van de prijs geen been zien in het kopieren van 
het handboek. Het grootste voordeel van deze aanpak is de 
ste1selmatige schifting, die er ten gunste van de 
gebruiker uit voortkomt. Kwalitatief slechte software zal 
bij een noodzakel i jke, uitgebreide beschrijving ervan al 
a priori door de mand vallen. Resultaat: gebrekkige 
software wordt zeer goedkoop, kwalitatief hoogstaande 
programmatuur wordt goedkoper. Het uitgeven van goede 
software kan de komende tien jaar een aantrekkelijke zaak 
worden. 

De computerwere1d kan lering trekken uit ervaringen in de 
uitgeverij, of kan daarvoor een verbond met 
gespecia 1iseerde uitgevers aangaan. Het kan zeker geen 
kwaad, wanneer het mystieke waas rond het vak van 
programmeur wordt opgeheven en hij de status krijgt van 
"software-auteur". Vooral juridisch zal zijn positie dan 
globaal versterkt worden! 



4. TEN BESLUITE 


De ontwikkelingen op het gebied van microprocessoren gaan 
snel. 

Het vervult de gebruiker van de APPLE II weleens met 
onrust, of zijn dierbare "machine" over enkele jaren nog 
zal meetellen. Degeen, die de aanschaf van een 
microcomputer overweegt, heeft het met deze vraag 
so-wie-so ai moeilijk. Ook wij kunnen niet in de toekomst 
kijken. Zeker is het, dat APPLE COMPUTERS INC. in weinig 
jaren met de succesvolle APPLE II microcomputer voor een 
standaard heeft gezorgd, waarmee velen zich (tevergeefs) 
trachten te meten. 

De kracht van het APPLE computersysteem kun je pas 
waarderen, wanneer je ermee hebt gewerkt. Merkwaardig is 
het evenwel, dat de fabrikant nooit moeite heeft gedaan 
om kleine tekortkomingen van de populaire APPLE II op te 
heffen. Vrijwel alle "verbeteringen" zijn buiten APPLE 
COMPUTERS INC. tot stand gekomen. Het aantal producenten 
van accessoires voor de APPLE II is overwe1digend en 
getuigt van het grootse sukses. Ongetwijfeld kan onze 
APPLE II nog veel jaren mee. Het verschijnen van de 
minder geslaagde APPLE III en de aankondiging van de 
APPLE IV doen daar niets aan af. 

De 1 aatstgenoemde computers zijn dure business systemen, 
die niet bestemd zijn voor "gedecentra1iseerd " gebruik. 

De APPLE II is in principe een desktop computer, die 
overal voor is in te zetten en overal mee naar toe kan 
worden genomen. Een fenomeen vormt de juist bij het ter 
perse gaan van dit handboek verschenen "PEAR II". Deze 
microcomputer is eigenlijk een tweemaal zo grote versie 
van de APPLE II. Voor de zuiver professione 1e gebruiker 
van het APPLE systeem biedt de "PEAR" meer moge1ijkheden 
voor een zwaarder gebruik. Zo heeft de "PEAR" een zeer 
goed alfanumeriek toetsenbord met los numeriek keypad. 
Voorts heeft hij een zwaardere voeding en biedt hij 
ruimte voor 14 periferals. In hoeverre APPLE een "peer" 
naast zich zal gedogen, valt te bezien, ofschoon kwade 
tongen beweren, dat de PEAR II een APPLE-produkt is! 

Een tamelijk identiek product vormt de "Black APPLE"; een 
door Bell & Howell in licentie vervaardigde APPLE II, ook 
met numeriek toetsenbordje. Opvallend is, dat deze 
produkten op de Benelux markt verschijnen, nu de 
computerhande1 ontevreden geluiden laat horen over de 
marketing van APPLE computers. 
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EEN EVALUATIE ANNO VOORJAAR 1982 


Wij ontkomen er niet aan, om in het licht van de 
verschijning van twee sterke alternatieven voor de APPLE 
II microcomputer aan U onze overdenkingen voor te houden. 

Vast staat voor ons, dat APPLE COMPUTER INC. voor een 
rotsvaste "standaard" heeft gezorgd met haar APPLE II 
computers en in veel mindere mate door de mislukte APPLE 
III. Dat laatste buiten de schuld van APPLE. 

Dat APPLE faalt, waar het de marketing van haar systemen 
naar Europa betreft, spreekt uit de verkoopcijfers, die 
het instituut van marktonderzoek uit Boston (VS) 
recentelijk publiceerde. 

Wanneer wij de verkoop cijfers van "De Grote Drie" 
bekijken dan valt op, dat Comodore (PET) met de verkoop 
van 106.000 eenheden op de Europese markt de leiding 
heeft met een markt aandeel van 30-50% afhankelijk van de 
aangelegde criteria. 

Apple volgt met 32.600 exemplaren en Tandy sluit de rij 
met 26.000 verkopen. Zo op het oog valt APPLE niet uit de 
toon, maar binnen het marktgebied van haar computer deelt 
zij de laagste markt met 64 (!) directe concurrenten... 

In Amerika noemt men een fabrikant die zo ingeklemd zit 
tussen concurrenten helaas "Mr. Nobody". 

Een feit is het, dat handelaren in de Benelux zeer 
ontevreden zijn over de marketing van Apple's, maar vol 
lof zijn over de eigen Apple-Service Organisatie die in 
Zeist is gehuisvest. Maar het gaat niet primair over de 
service, wel over de verkopen... 

Inmiddels zouden er in Cupertino bij Apple pittige 
brieven liggen over de schromelijk te kort schietende 
marketing. 

Een volgend feit is dat APPLE niets heeft gedaan om de 
algemeen gevoelde gebreken van de Apple II op te vangen. 
Geen upper en lowercase, geen Euro-Color en RBG, geen 
betere voeding, geen dikker moederbord en geen 80 
karakters op een regel. Dit heeft men overgelaten aan 
derden, waardoor Apple een erg rommelige indruk vestigt. 
Hiernu hebben de Europese fabrikanten op ingespeeld. De 
"Nederlaods/Engels/Belgische" PEARC0M en de "Duitse" 

BASIS 108 serie tonen aan, dat er een markt is voor een 
sterk verbeterde versie van de Apple II. In prijs liggen 
deze alternatieven gelijk met de standaard 48K APPLE II. 
Dus de keus wordt voor veel eisende, meer professioneel 
ingestelde gebruikers erg gemakkelijk gemaakt. 

*********** 
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DE "PEARCOM" MICRO-FRAME 


Werken met de nieuwe "PEARCOM" micro-frame is een 
eigenaardige ervaring. Kenmerkend is, dat deze 
microcomputer weliswaar werd uitgerust met een 6502 
processor, doch dat daarvoor geen besturingsprogramma, 
zelfs geen "monitor" bij aanschaf mee komt. 

Je kunt daarom kiezen uit een aantal aantrekkelijke 
opties. Tegen een geringe meerprijs kun je de bekende 
APPLESOFT ROM's laten installeren, waardoor de "Peer" bij 
het inschakelen als een echte "Apple" opkomt: 

biep APPLE II 

Of je kunt er gelijk een Z-80A kaart, de softcard van 
Microsoft kopen en gelijk professioneel werken met CP/M 
en MBASIC (GBASIC). De laatste mogelijk ligt het meest 
voor de hand, omdat Applesoft niet werd geschreven om 
daarme snelle en ingewikkelde diskbesturing toe te 
passen. in feit ontbreken de commando's daarvoor ( in 
tegenselling tot SAVE, S(H)L0AD via de casstteband! ) en 
moet je je met de Apple II behelpen met een ingewikkeld 
Disk Operating System. De professionel uitvoering van de 
"PEARCOM" met zijn prachtige toetsenbord, mooi 
ergonomisch geplaatste toetsen en het numerieke keypad 
vraagt om een bedrijfsmatige , althans professionel 
benadering. 

Het miniale prijsverschi1 dat tussen de "PEARCOM" en de 
"APPLE II" bestaat (nauwelijks 500 gulden 35 Bfr) zal het 
de meer professioneel kwaliteiten zoekende koper erg 
gemakkelijk maken. 

De geheugenorganisatie van de "PEARCOM" is zondermeer 
uitgekiend. Er is 96K RAM werkgeheugen beschikbaar, 
waarvan boven de 32K maar liefst 4 te selecteren banken. 
Omdat een 8-bit microprocessor slechts 65535 adressen kan 
overzien, zal hij nooit meer dan 64K ineens kunnen 
bewerken. Vandaar de "bank select", die met een zelfde 
POKE is software is te besturen. Door snel te POKEn kun 
je de illusie hebben toch met 96K van doen te hebben! Dit 
noemt men een "transparante" organisatie. 


Het Hex adres $C060 (bij de APPLE II de cassetterecorder) 
beheerst het totale schakelbeeld binnen de "PEARCOM". Het 
woord "lumineus" is hierbij op zijn plaats. 

functie locatie b7 b6 b5 b4 b3 b2 bl/bO 

bank Cn 

select 

norm. 
bank 

Schake 1 locatie $C060/-16288 macht 10 


write 

aan 

-16288 

X X 

kar. 

set 

low. 

case 

ex 

vid 

10 

sel 

read 
u i t 

-16288 

cass x 
i n 

norm 

set 

up 

case 

norm 

video 

io 

i 
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Willen wij bij de "PEARCOM" desnoods nog een 256K 
RAM-kaart aan brengen dan is dat mogelijk. 

Er zijn voor I/O toepassingen 2x7 slots aanwezig, in 2 
banken, die ook via POKE -16288 worden geswitched. 

De "PEARCOM" kan standaard worden voorzien van 6 type 
2716 INTEL EPROM's met besturingssoftware (FORTRAN, COBOL 
of BASIC), of (jumper omzetten) met 2316 ROM's van het 
bekende Aplesoft type. 

Je kunt een en ander niet door elkaar gebruiken. 

Door de merkwaardige memorie-mapping met de drie 
ingebouwde "RAM-kaarten" is het mogelijk gebruik te maken 
van maar liefst 10 verschi1lende tekst- en lowresolution 
graphic screens. In hi-res slechts zes!!! 

Het is dus theroretisch mogelijk door "page-flipping" een 
complete tekenfilm op de "PEARCOM" te runnen. 

In de tekst-mode is het bekende "APPLE II" stramien 
beschikbaar: 960 karakters in normal, inverse en flashing 
mode. Standaard is het beeld Uppercase (net als bij de 
APPLE hoofdletters), of Lowercase. Er zijn echter ook 
Griekse en grafische tekens beschikbaar in extended video 
mode. Wie eigen karakters (bv gemixte upper- en 
lowercase) wil toepassen moet zelf zijn EPROM maken en 
dat kan heel gemakkelijk. 

Ook standaard bezit de "PEARCOM" een PAL-kleuruitgang 
voor aansluiting op een kleurentelevisie. Het gaat prima 
maar het is natuurlijk niet erg fraai. Een RGB interface 
is inmiddels beschikbaar. 

Samenvatting 


Indien de "PEARCOM" met Applesoft ROM's of AS-kaart of 
een 16K RAM-kaart wordt uitgerust, is hij "identiek" aan 
de Apple II computer. Dit handboek is dan ook aanbevolen 
voor de "PEARCOM". 

Wei dient men rekening te houden met de vele extra's van 
de "PEARCOM", die veel "tekortkomingen" van onze APPLE II 
teniet doen. Maar goed verschil moet er zijn! 

Het is zeker niet zo, dat APPLE-gebruikers zich 
beconcurred moeten voelen. Er komt alleen een stevig 
uitgebouwd vriendje bij. Alle standaard-APPLE software 
werkt op de "PEARCOM" 

************* 
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Werken met de Z-80A Softcard 


Inleiding 

De door het Amerikaanse systeemhuis "Microsoft" op de 
markt gebrachte Plug-in kaart met de Z-80A processor is 
waarschijnlijk een van de meest revo1utionaire 
ontwikkelingen rond de Apple-computer. 

In een schitterend pakket wordt deze "Softcard" op de 
markt gebracht. Erbij mee komen de fysieke kaart, een 
tweetal 5.25 inch diskttes met CP/M en twee versies van 
het ANSI genormeerde BASIC (M en G), versie 5.0. Voorts 
worden twee keurig verzorgde, dikke handleidingen mee 
geleverd, die alle in's en out's van het Z-80A systeem 
uit de doeken doen. 

Een en ander betekent, dat alle professionele software, 
die in zo ruime mate voor de Z-80 beschikbaar is, nu ook 
op de Apple verwerkt kan worden. 

Wat is CP/M 

CP/M is in tegenstel1ing tot wat velen denken- GEEN 
Computertaa1. CP/M betekend "Control Program/Monitor" en 
werd in 1973 door Gary Kildall INTEL ontwikkeld. Het is 
een disk-operating-systeem. 

CP/M is het sukses verhaal van een fabrikant van computer 
periferals (m.n. diskdrives), die gekoppeld moesten 
worden aan allerlei computer frames. Toen dat goed gelukt 
was, kwam de software ontwikkeling opgang, die CP/M 
maakte tot wat het nu is: een hoog ontwikkeld 
disk-operating-systeem met hulp programma's. De CP/M 
versies 1.4 en 2.2 zijn thans het wijdst verbreid. 


Het installeren van de softcard. 

Meer dan anders is het voor CP/M nodig, dat bepaalde 
periferals (printers, 80-kolomskaart, diskdrives) op 
genormeerde slots worden aangebracht. Zo hoort de printer 
op slot 1, diskdrives op slot 6. De Softcard kan in slot 
7 of slot 4. Bij het monteren van de kaart schakelen we 
de Apple uit, lichten het deksel op en steken de kaart op 
zijn plaats. Deksel dicht en klaar! 

Het kopieren van de masterdiskette. 

Het is verstandig de meegeleverde CP/M masterdiskette te 
kopieren. Daartoe doen wij de masterdisk (in 13 of 16 
sector formaat, beide versies zijn aanwezig) in de 
diskdrive. Vervolgens tikken we pr*6 om op te booten. 
Binnen weinige tellen staat het CP/M logo op het scherm. 
Nu kunnen we ons de eerste beginselen van dit systeem 
leren eigen maken. Het is even wennen aan de afwezigheid 
van een cursor. Op het beeldscherm zie je inplaats van 
het bekende Applesoft haakje het volgende: 

A > 

Dit betekend dat CP/M klaar is voor de ontvangst van je 
eerste commando. 
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In tegenstel1ing tot het Apple-DOS kent CP/M geen drive 
1, 2 of 3. Het kent slechts drive A:,B:,en C:, vandaar de 
stickers die op je Z-80 pakket zitten. 

Tik nu eens DIR en wacht af wat er na een return te zien 
is. DIR is het CP/M commando door Directory of in 
Apple-DOS jargon "Catalog". 

Ondermeer zie je het programma "FORMAT" (met een 
achtervoegsel COM) staan. Om een kopie te maken van de 
master zullen wij van dit programma het eerste gebruik 
moeten maken. 

Tik daarom FORMAT B: (of FORMAT A: als je 1 drive hebt). 
Doe een ongebruikte diskette in drive B: en tik op de 
return toest, zodra het programma zich aandient. Binnen 
een tiental tellen is de nieuwe diskette "geformatterd". 
Na het formateren tik je nogmaals return om weer in de 
uitgangspositie terug te komen. Degenen met 1 drive 
moeten tussentijds disktte wisselen. Let goed op en kijk 
wat het programma verwacht! 

Nu gaan we master werkelijk kopieeren. 

A > COPY B:= A: 

Ofwel CP/M kopieer voor mij op drive B: de programma's 
van drive A:! Zonder veel moeite wordt dit proces 

afgerond, maar. LET OP. Je hebt zo geen kopie van de 

master, omdat het feitelijk Boot-CP/M nog ontbreekt. 

Daartoe tikken we opnieuw: 

A > COPY B:-A:/S /S betekent System, ofwel kopieer 
nu de CP/M boot-routine. 

PAS NU ZAL ER EEN GEREDE KOPIE BESTAAN VAN DE MASTER! 

Het is mogelijk deze aan te passen aan een Apple met een 
Language- of RAMkaart. Berg nu de master-diskette veilig 
op en doe de nieuwe werklopie in drive A: tik (als je een 
ramkaart hebt) vervolgens: 

CPM56 A: 

en de computer doet de rest voor je. 


14-5 





BASIS-108: HET NIEUWSTE ALTERNATIEF 


Voortbordurend op het sukses van de APPLE II micro komen 
nu in snel tempo microcomputers op de Europese markt, die 
volmaakt "Apple compatible" zijn. Opvallend is, dat deze 
alternatieven voor de APPLE verschijnen op een moment, 
dat de handel uitgekeken raakt op de wijze, waarop Apple 
met haar product omgaat. Wij maakten daarvan al eerder 
gewag. 

Het nieuwste alternatief voor de APPLE II is de daaraan 
volmaakt compatibele "BASIS-108" microcomputer uit 
Duitsland. Evenals de "PEARCOM" lost dit alternatief een 
groot aantal typische (en onnodige) tekortkomingen van de 
standaard APPLE II op 

In feite is de "BASIS-108" een type uit een reeks van 
drie. Al naar gelang de uitbouw (tot en met twee Apple 
mini diskdriuves toe) kent men de BASIS 108, 208 en 216. 

Karakteristiek is het uiterlijk van de BASIS-108. Hij 
lijkt precies op de APPLE III ! Een zeer uitgebreid en 
fraai toetsenpanee1 (je durft het geen bord meer te 
noemen) en een doosvormige kast, waarin de processoren 
(meervoud) zitten met geen, een of twee diskdrives. 

De BASIS-108 bezit een Z-80A en een 6502 processor 
hetgeen ongelofelijke mogelijkheden inhoudt. 

Standaard wordt hij uitgerust met 64K RAM werkgeheugen, 
die uitgebouwd kand worden tot 128K 

Hij heeft 10K ROM vrij en kan willekeurig worden 
uitgerust met de bekende Applesoft ROM's en-of eigen 
EPROM's met bv. FORTRAN, COBOL,etc. 

In dit opzicht heeft deze machine overeenkomsten met de 
"PEARCOM". 

Maar, waar de "PEARCOM" tobt met de PAL-kleuren, biedt de 
BASIS 108 juist iets meer: een standaard RGB-uitgang, die 
bij de PEARCOM optioneel is. 

Het beeldscherm is omschake1baar van 80 karakters per 
regel naar 40 uitgaande van 24 regels per scherm. Dus 
professionele tekstverwerking is mogelijk. 

Hij bezit een cassetterecorder aansluiting "maar" zes 
slots, waarin de periferals gaan. Gezien het feit, dat 
deze BASIS-microcomputer zo volledig is, zal er echter 
maar weinig "in behoeven worden gestoken". 

Want ook standaard zijn: een para 1le1-interface en een 
V-24 seriele interface. 

Voor het overige is het een en al APPLE 

************** 
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Werken met MBASIC-80 versie 5.0 


Met CP/M en de Z-80 kaart komen twee versies voor van 
Microsoft's MBASIC-80. 

De versie M kent geen HI-RES commando's en de versie G 
wel. 

Je kunt MBASIC booten door vanuit CP/M te tikken: 

A > MBASIC 

Het MBASIC is volgens ANS I normblad BSRX3. 60-1978 
gestandariseerd. Programma's in M(G)Basic werken daarmee 
op andere MBASIC-systemen. 

Op nogal wat punten is MBASIC afwijkend van APPLESOFT. Zo 
kent het de begrippen als COMMON, CHAIN, PRINT, USING, 

IF-THEN..WHILE_WEND, AUTO en RENUM. 

Krachtig zijn de diskcommando ' s die niet meer in het 
omslachtige "PRINT CHR$(4)" behoeven te worden verpakt. 

Toch kunnen Applesoft programma's (zonder 6502 PEEKS en 
POKEs) worden geconverteerd naar MBASIC. Erg 
aantrekke 1 ijk is voorts het werken met dubbele precisie. 
Je hebt nu de keus uit gehele getallen, enkelvoudige 
precisie (7 cijfers achter de komma) en dubbele precisie 
(16 cijfers achter de komma). 

Probeer: 

10 A%25.34 
20 PRINT A 56 

RUN 

25 

10 A#6= U /l 
20 PRINT A 
30 PRINT A* 

RUN 

.857143 

.8571438571428571 
Aantrekkelijk nietwaar? 

A11 e wiskundige funkties worden ondersteund, zoals bij 
Applesoft het geval is. Het kan daarom zeker geen kwaad 
eerst goed in Applesoft te leren Basic programmeren. 

Door te tikken SAVE "PROG" kun je een programma naar 
diskette wegschrijven. Wil je dat vanuit drive A: doen 
naar drive B:, tik dan SAVE "B:PR0G". 

Benamingen van programma's of tekstfiles mogen in CP/M 
niet langer zijn dan 8 tekens, exclusief een 
drie-letterig achtervoegse1, bv. COM of BAS. 

Het is zeker de moeite waard met de Z-80 kaart te 

experimenteren en te vergelijken met het 6502-systeem. 
********************* 









10 REM TRICKDOS PROGRAMMA 

20 TEXT : HOME : POKE -- 16298,0: POKE - 16300, 

0: POKE - 16368,0 

30 GOSUB 2010: GOSUB 3010: GOSUB 2510: GOTO 610 
100 REM PEEK 

CGMMANDTABLE AND CREATE ARRAY 

102 REM ARRAY D0S*(Rl-28,Cl-2> ClCOMMAND 

C2=START ADDR 

104 REM DQS*=DQS COMMAND TABLE 
106 REM DOS=ADDR COMMAND TABLE 
110 TM = START 

120 IF PEEK (TM) = 0 THEN FIN = TM - l: GOTO 14 
0: REM FIND END OF TABLE 
130 TM = TM + l: GOTO 120 

140 I = U FOR J = 1 TO 29: FOR K = 1 TO 2: DOS* < J 
,K) = NEXT K,J:DOS*(1,2) = STR* (START) 

:DOS$ = : REM INITIALIZE 

150 FOR DOS = START TO FIN 

160 IF PEEK (DOS) > 127 THEN DOS*(1,1) = DOS*(I 
,1) + CHR* ( PEEK (DOS)):DOS* = DOS* + CHR* 

( PEEK (DOS)):DOS*((I + 1),2) = STR* (DOS + 

1):I = I + l: GOTO 180: REM IF HI BYTE INC 
REMENT I 

170 DOS*(1,1) = DOS*(1,1) + CHR* ( PEEK (DOS)):D 
OS* = DOS* + CHR* ( PEEK (DOS)) 

180 NEXT DOS: RETURN 

300 REM DEC—>HEX 

31@ HD7. = DOS / 256: NBR = HD"/.: GOSUB 340 :HB* = HE 
X* 

320 LD7. = FN MOD (DOS): NBR = LD7.: GOSUB 340: LB* = 
HEX* 

330 HEX* = HB* + LB*: RETURN 

340 H7. = NBR / 16 + 1:L7. = NBR / 16 :L = L7. * 16: L 
% = NBR -- L. + 1 

350 HEX* = MID* (H*,H7.,1) + MID* (H*,L"/.,1): RETURN 

400 REM REORGANIZE COMMAND TABLE 

410 IF PT = 1 THEN Tl* = GOTO 43© 

420 Tl* = LEFT* (DOS*, VAL (D0S*(PT,2)) - START) 

430 FOR I = 1 TO LEN (NC*>:T2* = T2* + MID* (N 
C*,1,1): NEXT 

44© IF PT = 28 THEN T3* “ . GOTO 460 

450 T3* = RIGHT* (DOS*,FIN + 1 - VAL (DOS$((PT + 

1 ) , 2 )) ) 

460 DOS* = Tl* + T2* + T3*:T2* = 

470 DOS - START 

480 FOR I = 1 TO LEN (DOS*): POKE DOS, ASC ( MID* 

(DOS* ,1,1)): DOS = DOS + 1: • NEXT- 
490 FIN = FIN + LEN (NC$) - LEN (OC$) 

500 POKE FIN + 1,0: RETURN 
600 REM MENU 

610 HOME- :TT* = "=—===========": GOSUB 3110 

620 TT* = "TRICK DOS MENU": GOSUB 3110 

6 3 0 T T $• 11 ss =s ss r: ss :::: =s rr r.r. “ l 01J 01J}~! 0 1 1 0 

640 VTAB 6: PRINT "1«DISPLAY CURRENT DOS COMMAND 
TABLE."s PRINT 



650 PRINT "2.CHANGE DOS COMMAND TABLE.": PRINT 
660 PRINT "3.RESTORE NORMAL DOS COMMAND TABLE.": 

PRINT 

670 PRINT "4.TRY SANDY'S COMMAND'S.": PRINT 
680 PRINT "5. EX IT PROGRAM.": PRINT : PRINT- 
690 VTAB 17: CALL - 958: PRINT " WHICH CHOIR 
E?";: GET 1$: PRINT I*:CH = VAL (1$) 

700 IF CH < I OR CH > 5”OR I* = "" THEN 690 
710 ON CH GOTO 800 > 1000 , 1300 > 1300,1500 
800 REM DISPLAY CURRENT TABLE 
81© HOME :TT* = "====:==:==:====== 11 ; GOSUB 3110 

820 TT* = "CURRENT DOS COMMANDS h ADDRESSES": GOSI IB 
3110 

830 TT* = GOSUB 3110 

840 IF NOT FF THEN VTAB 8: INVERSE :TT* = "REA 
DING DOS COMMAND TABLE": GOSUB 3110: NORMAL 

850 GOSUB 110: VTAB 4: CALL - 958 
860 PRINT : HTAB 2: INVERSE : PRINT "DEC";: HTAB 
8: PRINT "HEX";: HTAB 22: PRINT "DEC";: HTAB 
28: PRINT "HEX": NORMAL : PRINT 
87© FOR I = 1 TO 14 

880 PR I NT DOS* (I 1 2 >" : DOS = VAL (D08*'( I»2)): GOBI IB 

310: PRINT HEX*" "DQS*<I»1>;: HTAB 21: PRINT 
DOS*((I + 14)>2)" ";:DOS = VAL (DOS*(CI + 1 
4)>2)): GOSUB 310: PRINT HEX*" "DOS*((f + 14 
)* 1): NEXT 

890 IF FF THEN FOR I = 1 TO 5: PRINT : NEXT : RETURN 

900 VTAB 22: PRINT "LIST TABLE TO PRINTER <Y/N> 

? ";: GET I * 

909 REM *** DOS*(20>1);X IN 910 IS PRINT 

ERSLOT 

91© IF I* = "Y" THEN FF = i: HTAB 1: CALL - 99:4 
: CALL - 958: PRINT B*: INVERSE : PRINT "Til 
RN ON PRINTER AND PRESS ANY KEY": PRINT : HTAB 
10: PRINT "EXPECT A PAUSE ";: GET I*: PRINT 
: NORMAL : PRINT D*; DOS*(20 > 1); 1: GOSI IB 810: 

FF = 0:PRI 

920 IF I* = "N" THEN 610 
930 HTAB l: GOTO 90© 

1000 REM CHANGE TABLE 

1010 HOME :TT* r ~ "==============:=:": GOSUB 3110 

1020 TT* = "CHANGE COMMANDS": GOSUB 3110 
103© TT* = "====:======:==== 11 : GOSUB 3110 

1040 VTAB 4: CALL - 958: VTAB 8: INVERSE :TT* = 

" READING DOS COMMAND TABLE ": GOSUB 3110: NORMAL. 

1050 GOSUB 110: VTAB 5: CALL -- 958 
1060 FOR I = 1 TO 7 

107© PRINT DOS*(1,1);: HTAB 1©: PRINT* DOS*<<I + 

7)>1);: HTAB 20: PRINT DOS*((I + 14),1);: HTAB 
30: PRINT DOS*((I + 21 ), 1): NEXT 
1080 VTAB 14: CALL - 958: INPUT "TYPE COMMAND T 
0 BE CHANGED: ";OC*: IF OC* = "" THEN 1380 
1090 OC* = MID* (OC*>1 t LEN (OC*) - 1) + CHR* ( 

ASC ( RIGHT* (OC*»D) + 128): REM TURN NT 
BIT ON IN LAST LETTER OF COMMAND 
1100 FOR 1=1 TO 28: IF OC* = DOS*(I>1) THEM PT 
= I: GOTO 113© REM PT--POINTER TO POSITION 
OF COMMAND IN ARRAY 






lllv) IF I — 28 THEN PRINT Bf: VTAB' 16: INVERSE 

: PRINT " NOT A VALID CURRENT COMMAND NORMAL 
: FOR J = 1 TO 30002 NEXT ; GOTO 1080 
1120 NEXT I 

1130 VTAB 16: CALL - 958: INPUT "TYPE NEW COMMA 
NO: "5NCf: IF NCf = "" THEN 1130 
1140 NCf -- MIDf (NCf*1* LEN (NCf) - 1) + CHRf ( 

ASC ( RIGHT* (NO*»1)> + 128): REM TURN ON 
HI BIT IN LAST LETTER OF COMMAND 
1150 PRINT Bf: VTAB 18: HTAB 3: PRINT "CONFIRM < 

Y/N) ? GET 1$: PRINT 1$ 

1160 IF 1$ = "Y" THEN VTAB 20: INVERSE : PRINT 
" WRITING COMMAND TABLE ": GOSUB 410: VTAB 1 
8: HTAB 1: CALL - 958: PRINT " CHANGE COMPL 
ETED ": NORMAL : GOTO 1220 

1170 IF I* < > "N" THEN VTAB 18: CALL - 958: GOTO 

1150 

.1180 VTAB.18: CALL_ - 958: PRINT : PRINT "RETURN 

TO MENU OR TRY AGAIN Tm/A)"? T : GET lif FRTTTT 
1$ 

1190 IF 1$ -- "A" THEN GOTO 1080 
1200 IF 1$ = "M" THEN 610 
1210 GOTO 1180 

1220 VTAB 20: CALL - 958: PRINT "ANOTHER CHANGE 

(Y/N) ? : GET 1$: PRINT >*.; if j* = JHFN 

1040 

1230 IF I* = "N" THEN 610 
1240 GOTO 1220 

1300 REM RESTORE NORMAL TABLE OR INSTALL SANDY' 

S TABLE 

1310 VTAB 20: INVERSE : PRINT " WRITING COMMAND 
TABLE 

1320 NDOSf = "":MYDOSf = "" 

1330 FOR I = 1 TO 132: READ D: NDOSf- = NDOSf + CHRf 
(D): NEXT 

1340 FOR I -• 1 TO 67: READ D: MYDOSf = MYDOSf + CHRf 
(D): NEXT ; RESTORE 
1350 DOS = START 

1360 IF CH = 3 THEN TMf = NDOSf:TT$ = “NORMAL DO 
S COMMAND TABL..E REESTABLISHED ":FIN = START + 

LEN (NDOSf) - 1 

1370 IF CH = 4 THEN TMf = MYDOSf:TTf = " SANDY'S 
COMMAND TABLE INSTALLED ":FIN - START + i FN 
(MYDOSf) - 1 

1380 FOR I = 1 TO LEN (TMf): POKE DOS* ASC ( MIDf 
(TMf*1*1)):DOS = DOS + l: NEXT 
1390 POKE FIN + 1 »@ 

1400 HTAB l: PRINT TTf: NORMAL : GOSUB 3210: HTAB 
1: UUTu 6V0 

1500 REM END PROGRAM 

1510 POKE - 16298*0: POKE - .16300*0: POKE i 
6368*0: TEXT : HOME 

1520 VTAB 10: INVERSE :TT$ = " END OF TRICK DOS 
PROGRAM ": GOSUB 3110: NORMAL 
1530 VTAB 15: PRINT " INITIALIZING A DISK BEFORE 
REBOOTING": PRINT " WILL PRESERVE THE CURRE 
NT DOS COMMANDS" 

1540 VTAB 22: END 
2000 REM INITIALIZE 
2010 DIM DOSf(3@ * 2) 



2820 Df = CHR* (4):B$ = CHR* < 7 >:SSf = " 

REM 21 SPACES 

2830 H$ = "0123456789ABCDEF" 

2040 DEF FN MOD(X) = X - INT (X / 256) * 256: REM 
SIMULATE MOD FUNCTION 
2050 START = 43140: REM START OF TABLE 
2060 RETURN 

2100 DATA 73>78>73>212> 76 >79>65>196>83>65>86 * 197 
1 82 > 85 > 206 > 67 > 72 > 65173 > 206 > 68>69 > /6 > 6V > 84 > 19 
7 » 7.6 > 79 > <67 > 203 > 85>78 > 76 > 79 > <67 > 203 > 67 * 76 > 79 > 8 
3 > 197 > 82 > <69 >< 65 > 196 * > <69 > 88 > <69 > 195 * 8 7 .< 82 > 7-6 * 84 .. 

197>80 >79>83>73»84>73>79>206>79>88 >69>206>65 
> 80>80 > 69 >78 > 196 

2118 DATA 82»69 >78 »65»77»197»67>65>84>65»76»79 

, 199»77179»206»78»79 * 77»79»206»80> 82»163< 731 
78»163»77»65»88»70»73»76><89>211. »70*208>73»78 
1 212»66183»65»86 > 197»66»76»79. <65 > 196»66 ♦ 82»8 
5>206>86>69»82>73>70 »217: REM NORMAL TABLE 

2120 DATA 731170»76»196>83»2l4»82 > 85? 2 8 6»67»72» 

206 » 68 » 204 » 76 » 203 » 85 » 76 > 203 » 67 > 211 > 82 > 196>69 
> 88 > 195 > 87 > 210 > 38 > 83 > 20<6 > 79 > 208 > 65 > 208 > 82 t 69 
> 206>67 > 65 > 212 > 77 > 206 > 78 > 77 > 206 > 80 > 163 > 73>16 
3 > 77 > 65 > 216 > 70>20 8 > 73 > 78 >2 1 2 > 66 > 2 1 1 > 66 > 2 0 4 > 6 
6 > 210 > 86 . > 6.-9 > 210 

2130 DATA 77 > 206>78> 77 > 206 > 80 >163> 73>163> 77 > 65> 

216 > 7 0 > 208> 73> 78 > 212 >66 > 211> 66> 20 4 > 66 >210>86 
>69>210: REM SANDY'S TABLE 
2500 REM INSTRUCTIONS _ 

2510 HOME :TT$ = "==============": GOSUB 33.10 

2520 TT$ = "INSTRUCTIONS": GOSUB 3110 
2530 TT$ = "==“===“=====": GOSUB 3110 

2540 VTAB 7: CALL - 958: PRINT "DO YOU WANT INS 
TRUCTIGNS (Y/N) ? : GET 1$: PRINT If: IF I 

$ = "N" THEN RETURN 
2550 IF 1$ < > "Y" THEN 2540 

2560 POKE 34>4: VTAB 5: CALL - 958 
2570 PRINT "1.THE DOS COMMAND TABLE RESIDES AT R 
AM": PRINT " LOCATIONS $A884 TO $A908 (DEC 4 
3140": PRINT " TO 43272).": PRINT 
2580 PRINT "2.EACH COMMAND IS REPRESENTED BY ASC 
II": PRINT " CHARACTER CODES. ONLY THE LAST 
LETTER": PRINT " OF A COMMAND HAS THE HIGH B 
IT ON SO": PRINT " THAT DOS CAN RECOGNIZE TH 
E END OF THE" 

2590 PRINT " COMMAND. NOTE THE EXAMPLES BELOW:": 

PRINT : PRINT " LOAD = 4C 4F 41 C4": PRINT 

" INIT = 49 4E 49 D4": PRINT " RUN 

= 52 55 CE": PRINT : PRINT 
2600 PRINT "3.ZERO MARKS THE END OF THE TABLE." 

2610 GOSUB 3210: HOME 

2620 PRINT "4.THIS PROGRAM WILL ENABLE YOU TO AL¬ 
TER ": PRINT " THE COMMAND TABLE. YOU MAY DES 
IRE TO": PRINT " CHANGE 'CATALOG' TO : INVERSE 
: PRINT "CAT";: NORMAL : PRINT " OR 'SAVE' T 
0 ": PRINT " ";: INVERSE : PRINT "3V"?: NORMAL 




2630 PRINT ".BE SURE THAT NEW DOS COMMAND": PRINT 

" DOES NOT DUPLICATE THE FIRST PART OF": PRINT 
" AN APPLESOFT BASIC COMMAND> OTHERWISE": PRINT 
" UNUSUAL EVENTS MAY OCCUR. EXPERIMENT 1 " 

2640 PRINT " TIREDNESS OR SILLINESS MAY RESULT I 
N": PRINT " WEIRD SYMBOLS! 1 "': PRINT 
2650 PRINT "5.THESE MODIFICATIONS WIlL TRIGGER A 
": PRINT " SYNTAX ERROR IF A DIRECT OR DEFER 
RED": PRINT " COMMAND UTILIZES 'NORMAL.' TERM 
INOLOGY." 

2660 PRINT "6.";: INVERSE : PRINT "TRICK DOS";: NORMAL 

2670 POKE 34»0: GOSUB 3210: RETURN 

3000 REM TITLE PAGE 

3005 REM SF APPLE CORE FORMAT 

3010 INVERSE : VTAB 4 

3020 TT$ = SS$: GOSUB 3110: GOSUB 3110 

3030 TT$ = " TRICK DOS ": GOSUB 3110 

304@ TT$ = SS$: GOSUB 3110: GOSUB 3110 

3050 TT$ = " BY SANDY MOSSBERG GOSUB 3110 

3060 TT$ = SS$: GOSUB 3110: GOSUB 3110: NORMA!... 

3070 VTAB 16:TT$ = "CUSTOMIZE YOUR SET OF DOS CO 
MMANDS!": GOSUB 3110 
3080 GOSUB 3210: RETURN 
3100 REM PRINT CENTER 

3110 WIDTH = 20 - ( LEN (TT$) / 2): IF WIDTH < = 

0 THEN PRINT TT$: RETURN 
3120 HTAB WIDTH: PRINT TT$: RETURN 
3200 REM CONTINUE/END 

3210 VTAB 23: HTAB 12: PRINT "(ESC) TO END" 

3220 VTAB 24: PRINT TAB( 8);"(SPACE) TO CONTINil 
E 

3230 PRINT "< )";: HTAB 29: GET ZZ$: IF ZZ$ = CHR$ 
< 27 ) OR ZZ$ = CHR$ (3) THEN TEXT : HOME : GOTO 
1510 

3240 IF ZZ$ = CHRf (32) THEN RETURN 

3250 CALL - 868: CALL - 1008: GOTO 3230: REM 



5 REM <C) APPLE HANDBOEK 1981 
10 CALL - 936 
20 PRINT 

25 VTAB 102 PRINT SPC( 10) ••********••: PRINT 

SPC( 10)"VOLGORDE"2 PRINT SPC( 10)"** 
******" 

26 FOR A = 1 TO 1250: NEXT A 

27 CALL - 936 

28 VTAB 3 

30 PRINT “DRUK 0 VOOR EINDE PROGRAMMA" 

32 PRINT : PRINT “DIT PROGRAMMA SORTEERT NA 
MEN u : PRINT “OP ALFABETISCHE VOLGORDE“ 

35 PRINT- 

40 PRINT "AANTAL TE SORTEREN 6EGEVENS ?" 

42 PRINT “-“ 

50 VTAB 8 2 HTAB 32: INPUT H,, ;B 
60 IF B = 0 THEN 500 
80 FOR C = 1 TO B 

90 PRINT : PRINT “NAAM/GEGEVEN “?C?" “; 

100 INPUT A$(C) 

110 NEXT C 

120 FOR C = 1 TO B 

130 FOR D = 1 TO B - 1 

140 A$ = A*<D> 

150 B$ = A$(D + i) 

160 IF A* < B* THEN 190 
170 A$< D) = B$ 

180 A$(D + 1) = A$ 

190 NEXT D 

200 NEXT C 

210 PRINT 

220 FOR C = 1 TO B 

230 PRINT A$(C) 

240 NEXT C 

250 PRINT 2 INPUT “MEER GEGEVENS “ ?f:$ 

260 IF C$ = “J“ THEN 5 
500 END 



3 REM APPLE HANDBOEK 1981 
5 CALL - 936 

10 PRINT : PRINT TAB< 10)"SEPALING WEEKDAG" 


20 

30 



40 

42 

44 

50 

70 


80 

90 

100 

110 

120 

130 



140 


150 

160 


PRINT : PRINT 

PRINT "TYPE PER VRAAG 0 VOOR EINDE" 

PRINT 

VTAB 10: INPUT "WELKE DAG ? ";A 
PRINT : INPUT "WELKE MAAND ? "5B 
PRINT : INPUT "WELK JAAR ? ";C 
IF B < > 0 THEN 100 

IF A < > 0 THEN 100 

IF A < > 0 THEN 100 

GOTO 500 

IF B > 2 THEN 130 
B = B + 12 
C = C - 1 

D = A + 2 * B + INT (.6 * (B + 1)) + C + 

INT <C / 4) - INT <C / 100) + INT (C / 
400) + 2 

D = INT ((D / 7 - INT (D / 7)) * 7 + .5 
) 

IF D > 0 THEN 180 

INVERSE : PRINT : PRINT " ZATERDAG NORMAL 


170 GOSUB 10000 
175 GOTO 5 


180 IF D > 1 THEN 210 

190 INVERSE : PRINT : PRINT " ZONDAG " 

200 GOSUB 1000@: GOTO 5 

210 IF D > 2 THEN 240 

220 PRINT : PRINT " MAANDAG " 

230 GOSUB 10000: GOTO 5 


240 

if d : 

> 3 THEN 27@ 

250 

PRINT 

: PRINT " DINSDAG " 

260 

GOSUB 

10000: GOT0 5 

: 27 0 

IF o : 

> 4 THEN 300 

2o 0 

PRINT 

: PRINT " WOENSDAG " 

290 

GOSUB 

10000: GOTO 5 

300 

if o ; 

> 5 THEN 330 

310 

PRINT 

: PRINT " DONDERDAG" 

320 

GOSUB 

10000: GOTO 5 

330 

PRINT 

: PRINT " VRIJDAG " 

340 

GOSUB 

10000: GOT0 5 

500 

END 


10000 

' FOR 

E = 1 TO 3500: NEXT E: 




NORMAL : 


RETURN 




10 HOME 

20 VTAB 3 

30 D$ = CHR$ (4) 

40 INPUT "AANTAL ITEMS "51 

50 FOR X = 1 TO I 

60 INPUT "NAAM (MAX 10)";N$(X> 

70 IF LEN (N$(X)) > 10 THEN 60 
80 NEXT X 

90 PRINT DS;"OPEN NAAM>LI 0" 

95 FOR I = 1 TO X 

100 PRINT D$;"WRITE NAAM>R";I 

110 PRINT N$(I) 

120 NEXT I 

130 PRINT D$;"CLOSE NAAM" 

140 HOME : VTAB 3 

150 PRINT " KLAAR": FOR T = 1 TO 500: NEXT 
T 

160 PR I NT • D$ 5 " OPEN NAAM >L.10" 

165 FOR I = 1 TO X 

170 PRINT D$;"READ NAAM>R";I 

180 INPUT N$<I ) 

185 PRINT N$(I) 

190 NEXT I 

200 PRINT Df;"CLOSE NAAM" 

210 END 



1 JT'zXT : CALL •- 936: VTAB 5: PRINT TAB( 7)"*** 

ARTILLERY SIMULATOR ***": VTAB 12: PRINT "Y 
OUR MISSION IS TO BLOW UP THE OTHER ": PRINT 
"GUY BEFORE HE DOES THE SAME TO YOU.": PRINT 
: PRINT "YOU INPUT THE DATA IN THIS FORMAT:" 

: PRINT : PRINT "ANGLE TO FIRE, (COMMA) NO£ 

BAGS POWDER" 

2 PRINT : PRINT "EXAMPLE: 45,8.6 <CR>": PRINT 

: PRINT "WHERE <CR>= CARRIAGE RETURN": VTAB 
24: PRINT TAB< 12)"*** STAND BY ***";: FOR 
A = 1 TO 3000: NEXT A: DIM A(280):B = ??:C = 
3.141592654 / 180 

3 MGR : CALL - 936:B = - B: HCOLOR= 1:D = 139: 

FOR A = 1 TO 112: D = RND (1) * 10 + 140: HPLOT 
A,D TO A >159:A(A) = D: NEXT :E = INT ( RND 
(1) * 60 + 30): FOR A = 113 TO 152:F = SIN 
<<(A - 112) * 4.5 + 180) * C> * E:A<A) = F + 

D: HPLOT A >F + D TO A, 159: NEXT : FOR A = 15 
3 TO 279 :D = RND (1) * 10 + 140: HPLOT A,D TO 
A >159:A(A) = D: NEXT :G = INT ( RND (1) * 1 
0 ): IF RND (1) * 100 > 50 THEN G = - G 

4 HCGLOR= 3: HPLOT 112,10 TO 152,10: IF G > 0 THEN 

HPLOT 112,10 TO 125,5 

5 VTAB 21: PRINT TAB( 17)"WIND:"5 ABS (G): IF G 

< 0 THEN HPLOT 152,10 TO 139,5 

6 H = RND (1) * 100 + (< RND (1) * 10) + 5):I = 

278 - < RND (1) * 100): HPLOT H - 3,D TO H -- 
3>D - 5: HPLOT TO H + 3»D - 5: HPLOT TO H + 

3,D: HPLOT TO H - 3,D - 5: HPLOT H - 3,D TO 

H + 3,D - 5: HCOLOR- 3: HPLOT I - 3,D TO I - 
3,D - 5: HPLOT TO I + 3>D - 5: HPLOT TO I + 

3,D: HPLOT TO I - 3,D - 5: HPLOT I - 3,D TO 

I + 3»D - 5: IF B = 99 THEN 22 

7 VTAB 24: INPUT "ANG,BG?";L,M:M = M * 10 

8 IF B = - 99 THEN N = H 

9 IF B = 99 THEN N = I 

10 VTAB 21: PRINT TAB< 17)"WIND:"; ABS (G):A = 

0 


i l 

12 

•» •“« 
•L •-* 

14 

15 

16 


i / 
18 

19 

20 


A = A + .1:0 
99 THEN 0 = 
K = PEEK ( - 
99 THEN 0 = 
P = M * A * 

G * A 2: 

(L * C)) - 


= M * A * COS (L 
•• 0 + H 

• 16336): POKE - 
= I + 0 

SIN (L * C) - 16 
IF B - 99 THEN P 
16 * A 2 


16336,0: IF B 


* A 2i 
= M * A 


- 0 
< - 


SIN 


HPLOT N,Q 
1 THEN 21 
D -• P THEN 17 
HPLOT 0,D - p 


IF 0 < 3 OR 0 > 276 OR 


:N 


0: Q 


D - P: GOTO 


HCOLOR- 0 
D - P < ( 

IF A(0) < 

HCOLOR- 3: 

11 

U- An® " H > < 3 THEN 23 

r ABb . (, z' " I) < 3 THEN 24 
UR 0 > 276 THFI\i Oi 

HCULuFCy 0: FiJR A - 1 TO 25 :R = H - + rmh ( 

1) * 6:8 = A(R) + RND (1) * 3": HPLOT R,1:K = 
PEEK ( - 16336): POKE - 16336,0: NEXT : FOR 
A = 0 -■ 3 TO 0 + 3:A(A) = A<A) + 3: NEXT 
B = -- B: IF B = - 99 THEN 7 



VTAB 24: PRINT TAB< 25);: INPUT " ANG >BG?“;L> 
M:M = M * 10:L ~ L + 180 :Q = D - 5s GOTO 8 
T = Hs GOTO 25 
T = I 

HCOLOR” 3: FOR A = T - 10 TOJ.I + _10_ STEP 2j HPL 
A/D - 10 TO T/D: FOR J = 1 TO RND (i) * 5 + 

5sK = K + PEEK ( - 16336): NEXT : POKE - 1 
6336*0: NEXT : FOR A = 1 TO 2500: NEXT : GOTO 



5 POKE 214*255 

10 TEXT : HOME 

11 NORMAL 

30 VTAB 8: PRINT TAB( 8)"MENU": PRINT : PRINT 
TAB! 10)"1. DECIMAAL IN HEX": PRINT TAB( 
10)"2. HEX IN DECIMAAL": PRINT TAB( 10) 
"3. EINDE" 

35 VTAB 17: PRINT TAB! 13)"GEEF UW KEUZE 
: GET A* 

40 A = VAL (A*): IF A < 1 OR A > 3 THEN 10 

50 ON A GOTO 100*200 

60 POKE 214*0: NEW : END 

100 HOME : VTAB 7: PRINT "GEEF DECIMAAL NUMM 
ER ";: INPUT NBR* 

101 X = LEN (NBR*) : IF X > 6 THEN 100 

102 IF LEFT* (NBR** 1) = "-" THEN 105 

103 NBR = VAL (NBR*): GOTO 108 

105 NBR VAL (NBR*):NBR = NBR + 65536: GOTO 
109 

108 IF NBR > 65535 THEN 100 

109 GOSUB 500 

1.10 MD256 = FN MD(NBR) 

120 POKE 1 * MD256: POKE 0 >NBR / 256 

130 POKE 60*0: POKE 61*0: POKE 62*1: POKE 63 
*0 


140 

150 

16 @ 

200 

205 

206 
210 

220 

230 

240 

245 

250 


300 

500 

655 ; 


HOME : VTAB 8: PRINT TAB( 2>"DEC= "5NBR 

5” < CONTROLEER! ";: INVERSE : PRINT NBR 

*: NORMAL : CALL - 589 

POKE 1192*160: POKE 1193*200: POKE 1194* 

197: POKE 1195*216: POKE 1196*189: POKE 

1197*160 

GOTO 300 

HOME : VTAB 8: INPUT "GEEF HEX NBR ";NBR 
* 

L - LEN (NBR*): IF L = 3 THEN NBR* = "0" 
+ NBR* 

IF L > 4 THEN 200 

HI* = LEFT* (NBR**2):LO* = RIGHT* (NBR* 
* 2 ) 

IF LEN (NBR*) < 3 THEN HI* = "" 

HEX* = "0:" + LO* + " " + HI* + " N D823G 

!l 


FOR I = 1 TO LEN (HEX*): POKE 511 + I* ASC 
( MID* (HEX**1*1)) + 128: NEXT I: POKE 7 
2*0: CALL - 144 

N = PEEK (0) + PEEK (1) * 256:NNB = N - 
65536 

HOME : VTAB 9: PRINT TAB( 8)“HEX =";NBR 
*: PRINT TAB< 8)"DEC ="; PEEK (0) + PEEK 
(1) * 256?" OF: ";NNB 

VTAB 21: INVERSE : PRINT "DRUK TOETS"5: GET 

B*: POKE 0*0: POKE 1*0: GOTO 10 

DEE FN MD(NBR) = NBR - INT (NBR / 256) 

* 256: RETURN 

35 REM < C) HANS VAN KAMF'EN 

POSTBUS 2030 
CHEM 


4200 BA GORIN 



59998 

59999 

60000 

60001 
60002 

60003 

60004 

60005 

60006 

60007 

60008 
60010 
60011 
60015 
60020 


REM APPLE HANDBQEK 1981 
POKE 214*255 

REM SUBROUTINE PRINT BEELDSCHERM 
TEXT : POKE 34*23: PR* 1 
FOR I = 0 TO 22 
r$ = 


FOR J = 0 TO 39 


R = PEEK <1024 40 * I NT < I / 

I - 8 * INT (I / 8)) * 128 + j) 

IF R < 32 THEN R = R + 64 

R* = m + CHR$ <R) 

NEXT J 

PRINT SPG< X);R$: REM X DEFIN 
NEXT I: PRINT D$; ,, PR*0" 

TEXT : HOME : POKE 214,0: NEW : 
REM HVK 


8 ) + 
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